[elpa] externals/transient f88dbc4331 212/366: transient-suffix-object: Support all suffixes

[Jonas Bernoulli]

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

    transient-suffix-object: Support all suffixes
    
    Non-infix suffix commands do not have access to `transient--suffixes',
    and while this command is mainly intended for infix commands, its name
    and doc-string clearly indicated that it should work for all suffixes.
---
 lisp/transient.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 1d8b07c497..e11dfa7fd4 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1314,11 +1314,13 @@ probably use this instead:
   (get COMMAND 'transient--suffix)"
   (when command
     (cl-check-type command command))
-  (if transient--prefix
+  (if (or transient--prefix
+          transient-current-prefix)
       (cl-find-if (lambda (obj)
                     (eq (transient--suffix-command obj)
                         (or command this-original-command)))
-                  transient--suffixes)
+                  (or transient--suffixes
+                      transient-current-suffixes))
     (when-let ((obj (get (or command this-command) 'transient--suffix))
                (obj (clone obj)))
       (transient-init-scope obj)