branch: externals/transient
commit af5cdc5d556c7dba4c6a9c244e31ecca442a3f99
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient-echo-arguments: Only prettify if all arguments are strings
---
lisp/transient.el | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index ceff4141f0..028dc90441 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3568,14 +3568,15 @@ such as when suggesting a new feature or reporting an
issue."
:description "Echo arguments"
:key "x"
(interactive (list (transient-args transient-current-command)))
- (message "%s: %s"
- (key-description (this-command-keys))
- (mapconcat (lambda (arg)
- (propertize (if (string-match-p " " arg)
- (format "%S" arg)
- arg)
- 'face 'transient-argument))
- arguments " ")))
+ (if (seq-every-p #'stringp arguments)
+ (message "%s: %s" (key-description (this-command-keys))
+ (mapconcat (lambda (arg)
+ (propertize (if (string-match-p " " arg)
+ (format "%S" arg)
+ arg)
+ 'face 'transient-argument))
+ arguments " "))
+ (message "%s: %S" (key-description (this-command-keys)) arguments)))
;;; Value
;;;; Init
