branch: externals/transient
commit b710423225373bad8c2517d741d911a1b4468514
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Keep inhibiting quitting when entering submenu
Re #388.
---
lisp/transient.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index c3761973de..ce7093b547 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2989,8 +2989,6 @@ value. Otherwise return CHILDREN as is.")
(setq transient--editp nil)
(setq transient--all-levels-p nil)
(setq transient--minibuffer-depth 0)
- (setq quit-flag nil)
- (set-default-toplevel-value 'inhibit-quit nil)
(run-hooks 'transient-exit-hook)
(when command
(setq transient-current-prefix nil)
@@ -2999,6 +2997,8 @@ value. Otherwise return CHILDREN as is.")
(setq transient--current-suffix nil))
(cond (resume (transient--stack-pop))
((not replace)
+ (setq quit-flag nil)
+ (set-default-toplevel-value 'inhibit-quit nil)
(run-hooks 'transient-post-exit-hook)))))
(defun transient--stack-push ()
