[elpa] externals/setup 2e18255 23/24: Always push cons as name onto body

[Stefan Monnier]

branch: externals/setup
commit 2e182557292f3eaeddaeaa29362efe525b8d1b48
Author: Philip K <philipk@posteo.net>
Commit: Philip K <philipk@posteo.net>

    Always push cons as name onto body
---
 setup.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/setup.el b/setup.el
index 9f95b19..3b26d78 100644
--- a/setup.el
+++ b/setup.el
@@ -107,10 +107,9 @@ NAME may also be a macro, if it can provide a symbol."
   (declare (debug (&rest &or [symbolp sexp] form))
            (indent defun))
   (when (consp name)
+    (push name body)
     (let ((shorthand (get (car name) 'setup-shorthand)))
-      (when shorthand
-        (push name body)
-        (setq name (funcall shorthand name)))))
+      (setq name (and shorthand (funcall shorthand name)))))
   (macroexpand-all
    `(catch 'setup-exit
       (:with-feature ,name ,@body)