[elpa] externals/transient 3c5ac3a989 208/366: transient--init-suffixes: New function

[Jonas Bernoulli]

branch: externals/transient
commit 3c5ac3a9899e14112e1557cb728af0fa30db1225
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    transient--init-suffixes: New function
---
 lisp/transient.el | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 980f8321de..ba8e7bbcc3 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1646,14 +1646,7 @@ value.  Otherwise return CHILDREN as is."
 
 (defun transient--init-objects (name layout params)
   (setq transient--prefix (transient--init-prefix name params))
-  (setq transient--layout
-        (or layout
-            (let ((levels (alist-get name transient-levels)))
-              (cl-mapcan (lambda (c) (transient--init-child levels c))
-                         (append (get name 'transient--layout)
-                                 (and (not transient--editp)
-                                      (get 'transient-common-commands
-                                           'transient--layout)))))))
+  (setq transient--layout (or layout (transient--init-suffixes name)))
   (setq transient--suffixes
         (cl-labels ((s (def)
                        (cond
@@ -1675,6 +1668,14 @@ value.  Otherwise return CHILDREN as is."
     (transient-init-value obj)
     obj))
 
+(defun transient--init-suffixes (name)
+  (let ((levels (alist-get name transient-levels)))
+    (cl-mapcan (lambda (c) (transient--init-child levels c))
+               (append (get name 'transient--layout)
+                       (and (not transient--editp)
+                            (get 'transient-common-commands
+                                 'transient--layout))))))
+
 (defun transient--init-child (levels spec)
   (cl-etypecase spec
     (vector  (transient--init-group  levels spec))