[elpa] externals/transient 7d0db2826b 100/366: transient-args: No longer support an object as PREFIX

[Jonas Bernoulli]

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

    transient-args: No longer support an object as PREFIX
---
 docs/transient.org |  3 +--
 lisp/transient.el  | 15 +++++----------
 2 files changed, 6 insertions(+), 12 deletions(-)

diff --git a/docs/transient.org b/docs/transient.org
index 171817b112..b22710725a 100644
--- a/docs/transient.org
+++ b/docs/transient.org
@@ -1009,8 +1009,7 @@ function, which for infix arguments serves about the same 
purpose as
   If optional PREFIX is non-~nil~, then it should be a symbol, a
   transient prefix command.  In that case the value of the transient
   is only returned if the suffix was invoked from *that* transient.
-  Otherwise ~nil~ is returned.  This function is also used internally,
-  in which PREFIX can also be a ~transient-prefix~ object.
+  Otherwise ~nil~ is returned.
 
 - Variable: current-transient-suffixes
 
diff --git a/lisp/transient.el b/lisp/transient.el
index 56c1761390..152397239a 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2041,16 +2041,11 @@ around `scroll-down-command' (which see)."
 If optional PREFIX is non-nil, then it should be a symbol, a
 transient prefix command.  In that case only return the value
 of the transient if the suffix was actually invoked from that
-transient.  Otherwise return nil.  This function is also used
-internally, in which PREFIX can also be a `transient-prefix'
-object."
-  (if (transient-prefix--eieio-childp prefix)
-      (delq nil (mapcar 'transient-infix-value
-                        transient--suffixes))
-    (and (or (not prefix)
-             (eq prefix current-transient-command))
-         (delq nil (mapcar 'transient-infix-value
-                           current-transient-suffixes)))))
+transient.  Otherwise return nil."
+  (and (or (not prefix)
+           (eq prefix current-transient-command))
+       (delq nil (mapcar 'transient-infix-value
+                         current-transient-suffixes))))
 
 ;;;; Init