branch: externals/transient
commit 45241225cf6bec864964191c0b3dc8bfad989723
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient-common-commands: Evaluate lambdas
Suggested-by: Stefan Monnier <[email protected]>
---
lisp/transient.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 66ac8b8306..8764d4db3b 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1546,10 +1546,10 @@ to `transient-predicate-map'. Also see
`transient-base-map'.")
'transient--layout
(cl-mapcan
(lambda (s) (transient--parse-child 'transient-common-commands s))
- '([:hide (lambda ()
- (and (not (memq (car transient--redisplay-key)
- transient--common-command-prefixes))
- (not transient-show-common-commands)))
+ `([:hide ,(lambda ()
+ (and (not (memq (car transient--redisplay-key)
+ transient--common-command-prefixes))
+ (not transient-show-common-commands)))
["Value commands"
("C-x s " "Set" transient-set)
("C-x C-s" "Save" transient-save)
@@ -1564,10 +1564,10 @@ to `transient-predicate-map'. Also see
`transient-base-map'.")
("C-z" "Suspend transient stack" transient-suspend)]
["Customize"
("C-x t" transient-toggle-common
- :description (lambda ()
- (if transient-show-common-commands
- "Hide common commands"
- "Show common permanently")))
+ :description ,(lambda ()
+ (if transient-show-common-commands
+ "Hide common commands"
+ "Show common permanently")))
("C-x l" "Show/hide suffixes" transient-set-level)]])))
(defvar transient-predicate-map
