[elpa] externals/transient c6e3891537 21/41: transient-infix-set(argument): Cosmetics

[Jonas Bernoulli]

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

    transient-infix-set(argument): Cosmetics
---
 lisp/transient.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index ff08080692..cb51795384 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3196,13 +3196,10 @@ prompt."
                                    (and (member arg rule)
                                         (remove arg rule)))
                                  spec)))
-    (dolist (arg incomp)
-      (when-let ((obj (cl-find-if
-                       (lambda (obj)
-                         (and (slot-exists-p obj 'argument)
-                              (slot-boundp obj 'argument)
-                              (equal (oref obj argument) arg)))
-                       transient--suffixes)))
+    (dolist (obj transient--suffixes)
+      (when (and (slot-exists-p obj 'argument)
+                 (slot-boundp obj 'argument)
+                 (member (oref obj argument) incomp))
         (transient-infix-set obj nil)))))
 
 (cl-defgeneric transient-set-value (obj)