diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2025-05-30 22:40:59 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2025-05-30 22:40:59 +0200 |
| commit | b710423225373bad8c2517d741d911a1b4468514 (patch) | |
| tree | 73195367cee688f9ed3257be59763e9ff6f9d94e | |
| parent | 45fbefdc5b112f0a15cd936570b00629a9a2fda0 (diff) | |
Keep inhibiting quitting when entering submenu
Re #388.
| -rw-r--r-- | lisp/transient.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index c376197..ce7093b 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 () |