branch: externals/transient
commit e2bfe89e8fa030677186915270341bf50cc922d8
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--debug: Use new help-fns-function-name if available
This comes from Emacs commit a1f8702e834.
---
lisp/transient.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index b1c65e7beb..55a5e951fd 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2608,9 +2608,11 @@ value. Otherwise return CHILDREN as is."
(message "-- %-22s (cmd: %s, event: %S, exit: %s%s)"
arg
(or (and (symbolp this-command) this-command)
- (if (byte-code-function-p this-command)
- "#[...]"
- this-command))
+ (if (fboundp 'help-fns-function-name)
+ (help-fns-function-name this-command)
+ (if (byte-code-function-p this-command)
+ "#[...]"
+ this-command)))
(key-description (this-command-keys-vector))
transient--exitp
(cond ((keywordp (car args))
