[elpa] externals/transient 8d8df0f038 20/41: transient-infix-set(argument): Cosmetics

[Jonas Bernoulli]

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

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

diff --git a/lisp/transient.el b/lisp/transient.el
index 599d6c7c0c..ff08080692 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3187,23 +3187,23 @@ prompt."
 
 (cl-defmethod transient-infix-set :after ((obj transient-argument) value)
   "Unset incompatible infix arguments."
-  (let ((arg (if (slot-boundp obj 'argument)
-                 (oref obj argument)
-               (oref obj argument-regexp))))
-    (when-let ((sic (and value arg))
-               (spec (oref transient--prefix incompatible))
-               (incomp (cl-mapcan (lambda (rule)
-                                    (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)))
-          (transient-infix-set obj nil))))))
+  (when-let* ((--- value)
+              (arg (if (slot-boundp obj 'argument)
+                       (oref obj argument)
+                     (oref obj argument-regexp)))
+              (spec (oref transient--prefix incompatible))
+              (incomp (cl-mapcan (lambda (rule)
+                                   (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)))
+        (transient-infix-set obj nil)))))
 
 (cl-defgeneric transient-set-value (obj)
   "Set the value of the transient prefix OBJ.")