From 771f2edc83a2d48e9d46975c6433c4f16f449a7b Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 16 Mar 2015 22:12:52 -0500 Subject: [PATCH] Always return t on a successful init-time load Fixes https://github.com/jwiegley/use-package/issues/174 --- lisp/use-package/use-package.el | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index 224eb375028..561b12d74a5 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -105,6 +105,9 @@ possible." :type 'boolean :group 'use-package) +(eval-when-compile + (defvar use-package-expand-minimally)) + (defmacro use-package-expand (name label form) (declare (indent 1)) (when form @@ -479,7 +482,8 @@ possible." (if config-body `((eval-after-load ',name ;; '(,config-defun) - ',config-body*)))) + ',config-body*))) + (list t)) `(,(macroexpand `(use-package-with-elapsed-timer ,(format "Loading package %s" name-string) @@ -488,15 +492,18 @@ possible." (use-package-cat-maybes (list `(require ',name-symbol)) bindings - (list config-body*))) + config-body + (list t))) `(if (not (require ',name-symbol nil t)) - (display-warning - 'use-package - (format "Could not load package %s" ,name-string) - :error) + (ignore + (display-warning + 'use-package + (format "Could not load package %s" ,name-string) + :error)) ,@(use-package-cat-maybes bindings - (list config-body*))))))))))) + config-body + (list t))))))))))) (defmacro use-package (name &rest args) "Declare an Emacs package by specifying a group of configuration options. -- 2.39.2