]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix calls to run-hooks for :init and :config injected hooks
authorSylvain Benner <sylvain.benner@gmail.com>
Wed, 20 May 2015 01:07:30 +0000 (21:07 -0400)
committerSylvain Benner <sylvain.benner@gmail.com>
Wed, 20 May 2015 01:07:30 +0000 (21:07 -0400)
lisp/use-package/use-package.el

index 6feb0d84a5ca4492f2515f6085dbf02bcfed9150..444a48ca511a1fd24c655a2fe0a612daf6af0877 100644 (file)
@@ -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."