emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/transient fcdeadc1a4 1/3: Support using top-level while


From: Jonas Bernoulli
Subject: [elpa] externals/transient fcdeadc1a4 1/3: Support using top-level while transient is active
Date: Thu, 9 Feb 2023 07:18:26 -0500 (EST)

branch: externals/transient
commit fcdeadc1a449917d64e8032f075cd80ddf4253a3
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Support using top-level while transient is active
    
    It should always be possible to call that.  If the user calls it,
    then also quit all transients.
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 69f071758e..950fdb71c7 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1648,6 +1648,7 @@ See `transient-enable-popup-navigation'.")
     (define-key map [universal-argument]      #'transient--do-stay)
     (define-key map [negative-argument]       #'transient--do-minus)
     (define-key map [digit-argument]          #'transient--do-stay)
+    (define-key map [top-level]               #'transient--do-quit-all)
     (define-key map [transient-quit-all]      #'transient--do-quit-all)
     (define-key map [transient-quit-one]      #'transient--do-quit-one)
     (define-key map [transient-quit-seq]      #'transient--do-stay)
@@ -3996,7 +3997,6 @@ search instead."
     (transient--emergency-exit)))
 
 (advice-add 'abort-recursive-edit :before #'transient--abort-edebug)
-(advice-add 'top-level :before #'transient--abort-edebug)
 
 (defun transient--edebug-command-p ()
   (and (bound-and-true-p edebug-active)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]