[elpa] externals/transient 45241225cf 355/366: transient-common-commands: Evaluate lambdas

[Jonas Bernoulli]

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

    transient-common-commands: Evaluate lambdas
    
    Suggested-by: Stefan Monnier <monnier@iro.umontreal.ca>
---
 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