branch: externals/transient
commit 0a1c46945bd074f8d925a22de03cc63058798e48
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient-infix-set: Cosmetics
---
lisp/transient.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 14f3160de8..fbf46366cb 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3358,7 +3358,7 @@ prompt."
(cl-defmethod transient-infix-set :after ((obj transient-argument) value)
"Unset incompatible infix arguments."
- (when-let* ((--- value)
+ (when-let* ((value)
(val (transient-infix-value obj))
(arg (if (slot-boundp obj 'argument)
(oref obj argument)
@@ -3372,15 +3372,15 @@ prompt."
(and (not (equal val arg))
(cl-mapcan (apply-partially filter val) spec)))))
(dolist (obj transient--suffixes)
- (when-let* ((--- (cl-typep obj 'transient-argument))
+ (when-let* (((cl-typep obj 'transient-argument))
(val (transient-infix-value obj))
(arg (if (slot-boundp obj 'argument)
(oref obj argument)
(oref obj argument-format)))
- (--- (if (equal val arg)
- (member arg incomp)
- (or (member val incomp)
- (member arg incomp)))))
+ ((if (equal val arg)
+ (member arg incomp)
+ (or (member val incomp)
+ (member arg incomp)))))
(transient-infix-set obj nil)))))
(cl-defgeneric transient-set-value (obj)
