[elpa] externals/transient 5ad5b627f6 15/41: transient--setup-recursion: When initiated by outer transient-suffix

[Jonas Bernoulli]

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

    transient--setup-recursion: When initiated by outer transient-suffix
    
    A sub-prefix may be transient because its `transient' slot was set to
    t or `transient--do-recurse' in the definition of the outer prefix,
    but it may also be transient because the `transient-suffix' slot of
    the outer prefix is t.  We didn't account for the latter.
---
 lisp/transient.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 40ea33414d..9db266c8ce 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2547,9 +2547,10 @@ If there is no parent prefix, then just call the 
command."
   (when transient--stack
     (let ((command (oref prefix-obj command)))
       (when-let ((suffix-obj (transient-suffix-object command)))
-        (when (and (slot-boundp suffix-obj 'transient)
-                   (memq (oref suffix-obj transient)
-                         (list t #'transient--do-recurse)))
+        (when (memq (if (slot-boundp suffix-obj 'transient)
+                        (oref suffix-obj transient)
+                      (oref transient-current-prefix transient-suffix))
+                    (list t #'transient--do-recurse))
           (oset prefix-obj transient-suffix t))))))
 
 (defun transient--do-replace ()