diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2026-03-27 10:15:49 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2026-03-27 10:15:49 +0100 |
| commit | b71f04ebe7e22e24a3ae3d48e31402f70c477ada (patch) | |
| tree | ee12080d7351969aec759541608043bcf4956500 | |
| parent | 4debc07b5a6fae055ec92939b63f86e2265a795a (diff) | |
transient-suffix-object: Peal advice for primitive commands
For comparison we need `this-command' to be a symbol, but when that is
a primitive or anonymous function, then `transient--wrap-command' adds
an advice to `this-command', which we have to peal off here.
| -rw-r--r-- | lisp/transient.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index 63c02eb..85653fa 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -2129,6 +2129,7 @@ probably use this instead: (cond-let* (transient--pending-suffix) (transient--current-suffix) + [[this-command (advice--cd*r this-command)]] ((or transient--prefix transient-current-prefix) (let ((suffixes |