branch: externals/transient
commit 28aac32e82fae687c569ad5f3619561334a927e9
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@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)))))
