Don't compute the verbose debug text unless it's requested

diff --git a/lisp/use-package/use-package-core.el b/lisp/use-package/use-package-core.el
index 5ff33402c86222d7f65eb7caacd67012c7a7b221..7711806d1953b7c41766619365f2635172de4dda 100644 (file)
--- 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)))))