branch: externals/transient
commit f64f02439ee60fcba78baef7075227e6fa31f981
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient-common-commands: Cosmetics
---
lisp/transient.el | 41 ++++++++++++++++++-----------------------
1 file changed, 18 insertions(+), 23 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 7473c50b8b..1c0cc8f322 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1968,39 +1968,34 @@ to `transient-predicate-map'. See also
`transient-base-map'.")
"C-g" #'transient-quit-seq)
(defvar transient--common-command-prefixes '(?\C-x))
-
(put 'transient-common-commands
'transient--layout
(list
(eval
(car (transient--parse-child
'transient-common-commands
- (vector
- :hide
+ [:hide
(lambda ()
- (and (not (memq
- (car (bound-and-true-p transient--redisplay-key))
- transient--common-command-prefixes))
+ (defvar transient--redisplay-key)
+ (and (not (memq (car transient--redisplay-key)
+ transient--common-command-prefixes))
(not transient-show-common-commands)))
- (vector
- "Value commands"
- (list "C-x s " "Set" #'transient-set)
- (list "C-x C-s" "Save" #'transient-save)
- (list "C-x C-k" "Reset" #'transient-reset)
- (list "C-x p " "Previous value" #'transient-history-prev)
- (list "C-x n " "Next value" #'transient-history-next))
- (vector
- "Sticky commands"
+ ["Value commands"
+ ("C-x s " "Set" transient-set)
+ ("C-x C-s" "Save" transient-save)
+ ("C-x C-k" "Reset" transient-reset)
+ ("C-x p " "Previous value" transient-history-prev)
+ ("C-x n " "Next value" transient-history-next)]
+ ["Sticky commands"
;; Like `transient-sticky-map' except that
;; "C-g" has to be bound to a different command.
- (list "C-g" "Quit prefix or transient" #'transient-quit-one)
- (list "C-q" "Quit transient stack" #'transient-quit-all)
- (list "C-z" "Suspend transient stack" #'transient-suspend))
- (vector
- "Customize"
- (list "C-x t" #'transient-toggle-common)
- (list "C-x l" "Show/hide suffixes" #'transient-set-level)
- (list "C-x a" #'transient-toggle-level-limit)))))
+ ("C-g" "Quit prefix or transient" transient-quit-one)
+ ("C-q" "Quit transient stack" transient-quit-all)
+ ("C-z" "Suspend transient stack" transient-suspend)]
+ ["Customize"
+ ("C-x t" transient-toggle-common)
+ ("C-x l" "Show/hide suffixes" transient-set-level)
+ ("C-x a" transient-toggle-level-limit)]]))
t)))
(defvar-keymap transient-popup-navigation-map
