[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient df36bc8745 1/5: transient--parse-group: Detec
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient df36bc8745 1/5: transient--parse-group: Detect columns beginning with included group |
Date: |
Thu, 1 Feb 2024 21:49:03 -0500 (EST) |
branch: externals/transient
commit df36bc8745520f4580c8bc9260d57aa53878a053
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
transient--parse-group: Detect columns beginning with included group
---
lisp/transient.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 966388ba34..6958b024f2 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1099,10 +1099,11 @@ this case, because the `man-page' slot was not set in
this case."
((setq args (plist-put args key val))))))
(list 'vector
(or level transient--default-child-level)
- (or class
- (if (vectorp car)
- (quote 'transient-columns)
- (quote 'transient-column)))
+ (cond (class)
+ ((or (vectorp car)
+ (symbolp car))
+ (quote 'transient-columns))
+ ((quote 'transient-column)))
(and args (cons 'list args))
(cons 'list
(cl-mapcan (lambda (s) (transient--parse-child prefix s))