From: John Wiegley <johnw@newartisans.com>
Date: Mon, 4 Dec 2017 19:32:27 +0000 (-0800)
Subject: Expand use-package-core as a macro, to avoid load time dependency
X-Git-Tag: emacs-29.0.90~1306^2~15^2~156^2~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e36d208c69;p=emacs.git

Expand use-package-core as a macro, to avoid load time dependency
---

diff --git a/up-core.el b/up-core.el
index d1732c3b2a2..b4d86971b9b 100644
--- a/up-core.el
+++ b/up-core.el
@@ -1348,24 +1348,24 @@ no keyword implies `:all'."
 ;;; The main macro
 ;;
 
-(defun use-package-core (name args)
-  (let* ((args* (use-package-normalize-keywords name args))
-         (use-package--form
-          (concat "\n\n"
-                  (pp-to-string `(use-package ,name ,@args))
-                  "\n  -->\n\n"
-                  (pp-to-string `(use-package ,name ,@args*))
-                  "\n  ==>\n\n"
-                  (pp-to-string
-                   (macroexp-progn
-                    (let ((use-package-verbose 'errors)
-                          (use-package-expand-minimally t))
-                      (use-package-process-keywords name args*
-                        (and (plist-get args* :demand)
-                             (list :demand t)))))))))
-    (use-package-process-keywords name args*
-      (and (plist-get args* :demand)
-           (list :demand t)))))
+(defmacro use-package-core (name args)
+  `(let* ((args* (use-package-normalize-keywords ,name ,args))
+          (use-package--form
+           (concat "\n\n"
+                   (pp-to-string `(use-package ,name ,@,args))
+                   "\n  -->\n\n"
+                   (pp-to-string `(use-package ,name ,@args*))
+                   "\n  ==>\n\n"
+                   (pp-to-string
+                    (macroexp-progn
+                     (let ((use-package-verbose 'errors)
+                           (use-package-expand-minimally t))
+                       (use-package-process-keywords name args*
+                         (and (plist-get args* :demand)
+                              (list :demand t)))))))))
+     (use-package-process-keywords name args*
+       (and (plist-get args* :demand)
+            (list :demand t)))))
 
 ;;;###autoload
 (defmacro use-package (name &rest args)