From 90e3f4811144c0dcef05162892e8117e9577bb12 Mon Sep 17 00:00:00 2001 From: Sylvain Benner Date: Tue, 19 May 2015 21:07:30 -0400 Subject: [PATCH] Fix calls to run-hooks for :init and :config injected hooks --- lisp/use-package/use-package.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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." -- 2.39.2