branch: externals/transient
commit 09b436fad0a49fa1f5e27a00fa3f8aac82466ace
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient--debug: Ignore error in transient--suffix-symbol
---
lisp/transient.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 2d8f86d686..2ab137c1ca 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2170,8 +2170,10 @@ value. Otherwise return CHILDREN as is."
(if (symbolp arg)
(message "-- %-16s (cmd: %s, event: %S, exit: %s%s)"
arg
- (or (transient--suffix-symbol this-command)
- (list this-command this-original-command last-command))
+ (or (ignore-errors (transient--suffix-symbol this-command))
+ (if (byte-code-function-p this-command)
+ "#[...]"
+ this-command))
(key-description (this-command-keys-vector))
transient--exitp
(cond ((stringp (car args))
