[elpa] externals/transient 28aac32e82 058/366: Fix previous commit

[Jonas Bernoulli]

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

    Fix previous commit
---
 lisp/transient.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index fe94416078..08dc9b8b94 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2185,7 +2185,7 @@ This implementation should be suitable for almost all 
infix
 commands."
   (oset obj value value))
 
-(cl-defmethod transient-infix-set :around ((obj transient-infix) value)
+(cl-defmethod transient-infix-set :around ((obj transient-argument) value)
   "Unset incompatible infix arguments."
   (if-let ((sic transient--unset-incompatible)
            (arg (oref obj argument))
@@ -2195,7 +2195,8 @@ commands."
         (cl-call-next-method)
         (dolist (arg incomp)
           (when-let ((obj (cl-find-if (lambda (obj)
-                                        (equal (oref obj argument) arg))
+                                        (and (slot-boundp obj 'argument)
+                                             (equal (oref obj argument) arg)))
                                       transient--suffixes)))
             (let ((transient--unset-incompatible nil))
               (transient-infix-set obj nil)))))