branch: externals/transient commit df36bc8745520f4580c8bc9260d57aa53878a053 Author: Jonas Bernoulli <jo...@bernoul.li> Commit: Jonas Bernoulli <jo...@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))