[elpa] externals/transient fb88f803e8 3/3: transient--parse-suffix: Clarify clause, removing dead code

[Jonas Bernoulli]

branch: externals/transient
commit fb88f803e85fa0b9e1319e90b5e71020b6543d94
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    transient--parse-suffix: Clarify clause, removing dead code
    
    The only command left to be handled in this clause are `lambda'
    expressions.  Keep `commandp' so we continue to signal an error
    if that lacks an `interactive' form.
---
 lisp/transient.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 13233ec25f..787f15a2cb 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1188,7 +1188,7 @@ commands are aliases for."
        ((symbolp car)
         (setq args (plist-put args :command (macroexp-quote pop))))
        ((and (commandp car)
-             (not (stringp car)))
+             (eq (car-safe car) 'lambda))
         (let ((cmd pop)
               (sym (intern
                     (format
@@ -1200,10 +1200,7 @@ commands are aliases for."
                       `(prog1 ',sym
                          (put ',sym 'interactive-only t)
                          (put ',sym 'completion-predicate 
#'transient--suffix-only)
-                         (defalias ',sym
-                           ,(if (eq (car-safe cmd) 'lambda)
-                                cmd
-                              (macroexp-quote cmd))))))))
+                         (defalias ',sym ,cmd))))))
        ((or (stringp car)
             (and car (listp car)))
         (let ((arg pop)