Merge pull request from PhilHudson/macroexpand

Macroexpand quoted eval-after-load block early GitHub-reference: https://github.com/jwiegley/use-package/issues/13
2024-11-24 07:20:37 +00:00 · 2013-01-23 19:34:03 -08:00 · 2013-01-23 19:34:03 -08:00 · 1a65b11731
commit 1a65b11731
parent c4cf68f6e4 593f18aff5
1 changed files with 6 additions and 4 deletions
--- a/lisp/use-package/use-package.el
+++ b/lisp/use-package/use-package.el
@ -499,10 +499,12 @@ For full documentation. please see commentary.
                   ,init-body
                   ,(unless (null config-body)
                      `(eval-after-load ,name-string
-                         '(if ,requires-test
-                              (with-elapsed-timer
-                                  ,(format "Configuring package %s" name-string)
-                                ,config-body))))
+                         (quote
+                           (if ,requires-test
+                               ,(macroexpand-all
+                                  `(with-elapsed-timer
+                                       ,(format "Configuring package %s" name-string)
+                                     ,config-body))))))
                   t))
            `(if (and ,(or predicate t)
                      ,requires-test)