[elpa] externals/transient 09b436fad0 10/38: transient--debug: Ignore error in transient--suffix-symbol

[Jonas Bernoulli]

branch: externals/transient
commit 09b436fad0a49fa1f5e27a00fa3f8aac82466ace
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    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))