[elpa] externals/transient 2872b4a661 045/366: transient-init-value: Define for transient-prefix

[Jonas Bernoulli]

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

    transient-init-value: Define for transient-prefix
---
 lisp/transient.el | 41 +++++++++++++++++++++--------------------
 1 file changed, 21 insertions(+), 20 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 355be2442a..c441903ecc 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1352,19 +1352,14 @@ EDIT may be non-nil."
 
 (defun transient--init-objects (name layout params)
   (setq transient--prefix
-        (let* ((proto (get name 'transient--prefix))
-               (clone (apply #'clone proto
-                             :prototype proto
-                             :level (or (alist-get
-                                         t (alist-get name transient-levels))
-                                        transient-default-level)
-                             params))
-               (value (oref proto value)))
-          (if (functionp value)
-              (oset clone value (funcall value))
-            (when-let ((saved (assq name transient-values)))
-              (oset clone value (cdr saved))))
-          clone))
+        (let ((proto (get name 'transient--prefix)))
+          (apply #'clone proto
+                 :prototype proto
+                 :level (or (alist-get
+                             t (alist-get name transient-levels))
+                            transient-default-level)
+                 params)))
+  (transient-init-value transient--prefix)
   (setq transient--layout
         (or layout
             (let ((levels (alist-get name transient-levels)))
@@ -1962,15 +1957,21 @@ implementation, which is a noop.")
 (cl-defgeneric transient-init-value (_)
   "Set the initial value of the object OBJ.
 
-This function is called for all suffix commands, but unless a
-concrete method is implemented this falls through to the default
-implementation, which is a noop.  In other words this usually
-only does something for infix commands, but note that this is
-not implemented for the abstract class `transient-infix', so if
-your class derives from that directly, then you must implement
-a method."
+This function is called for all prefix and suffix commands.
+
+For suffix commands (including infix argument commands) the
+default implementation is a noop.  Classes derived from the
+abstract `transient-infix' class must implement this function.
+Non-infix suffix commands usually don't have a value."
   nil)
 
+(cl-defmethod transient-init-value ((obj transient-prefix))
+  (let ((value (oref obj value)))
+    (if (functionp value)
+        (oset obj value (funcall value))
+      (when-let ((saved (assq (oref obj command) transient-values)))
+        (oset obj value (cdr saved))))))
+
 (cl-defmethod transient-init-value ((obj transient-switch))
   (oset obj value
         (car (member (oref obj argument)