From 683e5104a0dd724b080043af078030db521858b1 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sat, 28 Sep 2024 21:02:52 +0200 Subject: [PATCH] fixup(f67500bf): Combine some conditionals --- lisp/transient.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/transient.el b/lisp/transient.el index 67d0399..54fec73 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -1245,7 +1245,7 @@ commands are aliases for." (and (listp val) (not (eq (car val) 'lambda)))) (setq args (plist-put args key (macroexp-quote val)))) ((setq args (plist-put args key val))))))) - (when-let* ((not (plist-get args :key)) + (when-let* (((not (plist-get args :key))) (shortarg (plist-get args :shortarg))) (setq args (plist-put args :key shortarg))) (list 'list @@ -2197,7 +2197,7 @@ value. Otherwise return CHILDREN as is." (cl-defmethod transient--init-suffix-key ((obj transient-argument)) (if (transient-switches--eieio-childp obj) (cl-call-next-method obj) - (when-let* ((not (slot-boundp obj 'shortarg)) + (when-let* (((not (slot-boundp obj 'shortarg))) (shortarg (transient--derive-shortarg (oref obj argument)))) (oset obj shortarg shortarg)) (unless (slot-boundp obj 'key)