From f150691c7808aabb3d1206bab6b1d28a7b127e74 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 26 Feb 2016 16:14:51 -0800 Subject: [PATCH] Only printing debug messages if use-package-verbose is `debug' Fixes https://github.com/jwiegley/use-package/issues/271 --- lisp/use-package/use-package.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index 617c523f8ff..0767d8e7fb0 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -58,7 +58,8 @@ If you customize this, then you should require the `use-package' feature in files that use `use-package', even if these files only contain compiled expansions of the macros. If you don't do so, then the expanded macros do their job silently." - :type 'boolean + :type '(choice (const :tag "Quiet" nil) (const :tag "Verbose" t) + (const :tag "Debug" debug)) :group 'use-package) (defcustom use-package-debug nil @@ -1136,7 +1137,7 @@ this file. Usage: (plist-get args* :defines)) (with-demoted-errors ,(format "Cannot load %s: %%S" name) - ,(if use-package-verbose + ,(if (eq use-package-verbose 'debug) `(message "Compiling package %s" ',name-symbol)) ,(unless (plist-get args* :no-require) (use-package-load-name name))))))) -- 2.39.2