From 45a77c5c910aab4d2eda61cb20505973a0aeb793 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Wed, 9 Oct 2024 19:45:10 +0200 Subject: [PATCH] transient--parse-group: Cosmetics --- lisp/transient.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/transient.el b/lisp/transient.el index 2e33afe..7e780a3 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -1138,7 +1138,7 @@ commands are aliases for." (let* ((key (pop spec)) (val (if spec (pop spec) (error "No value for `%s'" key)))) (cond ((eq key :class) - (setq class (macroexp-quote val))) + (setq class val)) ((or (symbolp val) (and (listp val) (not (eq (car val) 'lambda)))) (setq args (plist-put args key (macroexp-quote val)))) @@ -1148,11 +1148,12 @@ commands are aliases for." 'transient-define-prefix :setup-children :class)) (list 'vector (or level transient--default-child-level) - (cond (class) - ((or (vectorp (car spec)) - (and (car spec) (symbolp (car spec)))) - (quote 'transient-columns)) - ((quote 'transient-column))) + (list 'quote + (cond (class) + ((or (vectorp (car spec)) + (and (car spec) (symbolp (car spec)))) + 'transient-columns) + ('transient-column))) (and args (cons 'list args)) (cons 'list (cl-mapcan (lambda (s) (transient--parse-child prefix s))