[elpa] externals/setup 7fa5299 1/3: Use macroexp-progn where applicable

[Philip Kaludercic]

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

    Use macroexp-progn where applicable
---
 setup.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/setup.el b/setup.el
index 8e46680..c85efc7 100644
--- a/setup.el
+++ b/setup.el
@@ -183,7 +183,7 @@ If not given, it is assumed nothing is evaluated."
                              (setf (nthcdr arity args) nil)
                              (push (apply fn args) aggr)
                              (setq args rest)))
-                         `(progn ,@(nreverse aggr)))))))
+                         (macroexp-progn (nreverse aggr)))))))
           (if (plist-get opts :after-loaded)
               (lambda (&rest args)
                 `(with-eval-after-load setup-name ,(apply fn args)))
@@ -211,7 +211,7 @@ If not given, it is assumed nothing is evaluated."
                             feature
                           (intern (format "%s-mode" feature)))
              ,@body))
-      `(progn ,@body)))
+      (macroexp-progn body)))
   :documentation "Change the FEATURE that BODY is configuring.
 This macro also declares a current mode by appending \"-mode\" to
 FEATURE, unless it already ends with \"-mode\"."
@@ -510,7 +510,7 @@ the nondirectory part of PATH."
   :repeatable t)
 
 (setup-define :when-loaded
-  (lambda (&rest body) `(progn ,@body))
+  (lambda (&rest body) (macroexp-progn body))
   :documentation "Evaluate BODY after the current feature has been loaded.
 Avoid using this macro whenever possible, and
 instead choose a more specialized alternative or write one