From: Sylvain Benner <sylvain.benner@gmail.com>
Date: Wed, 20 May 2015 01:07:30 +0000 (-0400)
Subject: Fix calls to run-hooks for :init and :config injected hooks
X-Git-Tag: emacs-29.0.90~1306^2~15^2~340^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90e3f48111;p=emacs.git

Fix calls to run-hooks for :init and :config injected hooks
---

diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el
index 6feb0d84a5c..444a48ca511 100644
--- a/lisp/use-package/use-package.el
+++ b/lisp/use-package/use-package.el
@@ -181,16 +181,16 @@ ARGS is a list of forms, so `((foo))' if only `foo' is being called."
       (when body
         `((when ,(macroexp-progn
                   (use-package-expand name-string (format "pre-%s hook" keyword)
-                    `(run-hook-with-args-until-failure
-                      ',(intern (concat "use-package--" name-string
-                                        "--pre-" keyword-name "-hook")))))
+                    `((run-hook-with-args-until-failure
+                       ',(intern (concat "use-package--" name-string
+                                         "--pre-" keyword-name "-hook"))))))
             ,(macroexp-progn
               (use-package-expand name-string (format "%s" keyword) body))
             ,(macroexp-progn
               (use-package-expand name-string (format "post-%s hook" keyword)
-                `(run-hooks
-                  ',(intern (concat "use-package--" name-string
-                                    "--post-" keyword-name "-hook")))))))))))
+                `((run-hooks
+                   ',(intern (concat "use-package--" name-string
+                                     "--post-" keyword-name "-hook"))))))))))))
 
 (defun use-package--with-elapsed-timer (text body)
   "BODY is a list of forms, so `((foo))' if only `foo' is being called."