[elpa] externals/transient 5302db18cb 3/5: Once popup is showing keep doing so until full exit

[Jonas Bernoulli]

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)