[elpa] externals/transient 5c0f901a15 142/366: transient-init-value: Fix another regression

[Jonas Bernoulli]

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

    transient-init-value: Fix another regression
    
    oO  __[Another regression and I loose it.]
---
 lisp/transient.el | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index f816a20235..07ec73e5fe 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2116,15 +2116,17 @@ Non-infix suffix commands usually don't have a value."
   nil)
 
 (cl-defmethod transient-init-value ((obj transient-prefix))
-  (oset obj value
-        (if-let ((saved (assq (oref obj command) transient-values)))
-            (cdr saved)
-          (if-let ((default (and (slot-boundp obj 'default-value)
-                                 (oref obj default-value))))
-              (if (functionp default)
-                  (funcall default)
-                default)
-            nil))))
+  (if (slot-boundp obj 'value)
+      (oref obj value)
+    (oset obj value
+          (if-let ((saved (assq (oref obj command) transient-values)))
+              (cdr saved)
+            (if-let ((default (and (slot-boundp obj 'default-value)
+                                   (oref obj default-value))))
+                (if (functionp default)
+                    (funcall default)
+                  default)
+              nil)))))
 
 (cl-defmethod transient-init-value ((obj transient-switch))
   (oset obj value