[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient 5302db18cb 3/5: Once popup is showing keep do
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient 5302db18cb 3/5: Once popup is showing keep doing so until full exit |
Date: |
Tue, 7 Jun 2022 11:16:52 -0400 (EDT) |
branch: externals/transient
commit 5302db18cbab0054554cd5c9aefab366b70ba7d0
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
Once popup is showing keep doing so until full exit
If popup was explicitly shown, keep doing so when entering
a sub-prefix and when returning to the parent-prefix.
Closes #202.
---
lisp/transient.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 9146e64ea4..acb38ee193 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -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)
@@ -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)