Skip to content

Commit

Permalink
Once popup is showing keep doing so until full exit
Browse files Browse the repository at this point in the history
If popup was explicitly shown, keep doing so when entering
a sub-prefix and when returning to the parent-prefix.

Closes #202.
  • Loading branch information
tarsius committed May 26, 2022
1 parent cc4dd65 commit 5302db1
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion lisp/transient.el
Original file line number Diff line number Diff line change
Expand Up @@ -2078,7 +2078,6 @@ value. Otherwise return CHILDREN as is."
(setq transient--predicate-map nil)
(setq transient--redisplay-map nil)
(setq transient--redisplay-key nil)
(setq transient--showp nil)
(setq transient--helpp nil)
(setq transient--editp nil)
(setq transient--prefix nil)
Expand Down Expand Up @@ -2247,6 +2246,8 @@ value. Otherwise return CHILDREN as is."
(setq transient-current-suffixes nil)
(let ((resume (and transient--stack
(not (memq transient--exitp '(replace suspend))))))
(unless (or resume (eq transient--exitp 'replace))
(setq transient--showp nil))
(setq transient--exitp nil)
(setq transient--helpp nil)
(setq transient--editp nil)
Expand Down

0 comments on commit 5302db1

Please sign in to comment.