From ce36e6881748935c747760bc96d322e71ba115c5 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 6 Dec 2017 09:37:00 -0800 Subject: [PATCH] Don't compute the verbose debug text unless it's requested --- lisp/use-package/use-package-core.el | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/lisp/use-package/use-package-core.el b/lisp/use-package/use-package-core.el index 5ff33402c86..7711806d195 100644 --- a/lisp/use-package/use-package-core.el +++ b/lisp/use-package/use-package-core.el @@ -1364,18 +1364,20 @@ no keyword implies `:all'." (defmacro use-package-core (name args) `(let* ((args* (use-package-normalize-keywords ,name ,args)) (use-package--form - (concat "\n\n" - (pp-to-string `(use-package ,name ,@,args)) - "\n -->\n\n" - (pp-to-string `(use-package ,name ,@args*)) - "\n ==>\n\n" - (pp-to-string - (macroexp-progn - (let ((use-package-verbose 'errors) - (use-package-expand-minimally t)) - (use-package-process-keywords name args* - (and (plist-get args* :demand) - (list :demand t))))))))) + (if (eq use-package-verbose 'debug) + (concat "\n\n" + (pp-to-string `(use-package ,name ,@,args)) + "\n -->\n\n" + (pp-to-string `(use-package ,name ,@args*)) + "\n ==>\n\n" + (pp-to-string + (macroexp-progn + (let ((use-package-verbose 'errors) + (use-package-expand-minimally t)) + (use-package-process-keywords name args* + (and (plist-get args* :demand) + (list :demand t))))))) + ""))) (use-package-process-keywords name args* (and (plist-get args* :demand) (list :demand t))))) -- 2.39.2