diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2024-01-21 20:00:03 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2024-01-21 20:00:03 +0100 |
| commit | 194139cdfda4ea398c200c652a86916fa3729e05 (patch) | |
| tree | bf29838e52eb7b336eb0bed388d17290d1e4d83d | |
| parent | 81a108ba03c8c0cee9d455cfc7c0804c850cb99a (diff) | |
transient--wrap-command: Reindent
Do this in a separate commit because the diff sure looks like much
more changed than just some whitespace.
| -rw-r--r-- | lisp/transient.el | 35 |
1 files changed, 18 insertions, 17 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index bc2fde7..aa2eab3 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -2330,26 +2330,27 @@ value. Otherwise return CHILDREN as is." (letrec ((prefix transient--prefix) (suffix this-command) - (advice (lambda (fn &rest args) - (interactive - (lambda (spec) - (let ((abort t)) - (unwind-protect - (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)) - (advice-remove suffix advice) - (oset prefix unwind-suffix nil)))))) - (unwind-protect - (apply fn args) + (advice + (lambda (fn &rest args) + (interactive + (lambda (spec) + (let ((abort t)) + (unwind-protect + (prog1 (advice-eval-interactive-spec spec) + (setq abort nil)) + (when abort (when-let ((unwind (oref prefix unwind-suffix))) - (transient--debug 'unwind-command) + (transient--debug 'unwind-interactive) (funcall unwind suffix)) (advice-remove suffix advice) - (oset prefix unwind-suffix nil))))) + (oset prefix unwind-suffix nil)))))) + (unwind-protect + (apply fn args) + (when-let ((unwind (oref prefix unwind-suffix))) + (transient--debug 'unwind-command) + (funcall unwind suffix)) + (advice-remove suffix advice) + (oset prefix unwind-suffix nil))))) (advice-add suffix :around advice '((depth . -99))))) (defun transient--wrap-command () |