[elpa] externals/transient b526b9c: transient-infix-set: Consider all incompatibility rules

[Jonas Bernoulli]

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

    transient-infix-set: Consider all incompatibility rules
    
    Previously all but the first set of mutually exclusive arguments
    that the current argument is a member of were ignored.
    
    Closes #155.
    Closes #163.
---
 lisp/transient.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 6b4fc45..8752827 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2695,7 +2695,10 @@ prompt."
                (oref obj argument-regexp))))
     (if-let ((sic (and value arg transient--unset-incompatible))
              (spec (oref transient--prefix incompatible))
-             (incomp (remove arg (cl-find-if (lambda (elt) (member arg elt)) 
spec))))
+             (incomp (cl-mapcan (lambda (rule)
+                                  (and (member arg rule)
+                                       (remove arg rule)))
+                                spec)))
         (progn
           (cl-call-next-method obj value)
           (dolist (arg incomp)