[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)