diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2025-05-16 09:40:49 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2025-05-16 09:40:49 +0200 |
| commit | 8a4f713087e09f09ead32bf15726542a5fd6df52 (patch) | |
| tree | 465a9b222f5ffa9f87fbcd7f064eda5c388bbfba | |
| parent | 3b780a10e60cbc0b9cc89d70a9633fd7f40b4eea (diff) | |
transient-define-prefix: Rename a local variable
| -rw-r--r-- | lisp/transient.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index a2ee2af..e8aac55 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -1066,7 +1066,7 @@ to the setup function: (indent defun) (doc-string 3)) (pcase-let - ((`(,class ,slots ,suffixes ,docstr ,body ,interactive-only) + ((`(,class ,slots ,groups ,docstr ,body ,interactive-only) (transient--expand-define-args args arglist 'transient-define-prefix))) `(progn (defalias ',name @@ -1081,8 +1081,7 @@ to the setup function: (,(or class 'transient-prefix) :command ',name ,@slots)) (transient--set-layout ',name - (list ,@(mapcan (lambda (s) (transient--parse-child name s)) - suffixes)))))) + (list ,@(mapcan (lambda (s) (transient--parse-child name s)) groups)))))) (defmacro transient-define-suffix (name arglist &rest args) "Define NAME as a transient suffix command. |