branch: externals/transient commit 157aa63ebb28fbd82f1b4146c609d383ac06c152 Author: Jonas Bernoulli <jo...@bernoul.li> Commit: Jonas Bernoulli <jo...@bernoul.li>
Untabify --- lisp/transient.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/transient.el b/lisp/transient.el index d94a67ac19..a897749d36 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -2176,9 +2176,9 @@ value. Otherwise return CHILDREN as is." (lambda (spec) (let ((abort t)) (unwind-protect - (prog1 (advice-eval-interactive-spec spec) - (setq abort nil)) - (when abort + (prog1 (advice-eval-interactive-spec spec) + (setq abort nil)) + (when abort (when-let ((unwind (oref prefix unwind-suffix))) (transient--debug 'unwind-interactive) (funcall unwind suffix)) @@ -2201,9 +2201,9 @@ value. Otherwise return CHILDREN as is." (lambda (spec) (let ((abort t)) (unwind-protect - (prog1 (advice-eval-interactive-spec spec) - (setq abort nil)) - (when abort + (prog1 (advice-eval-interactive-spec spec) + (setq abort nil)) + (when abort (when-let ((unwind (oref prefix unwind-suffix))) (transient--debug 'unwind-interactive) (funcall unwind suffix))