masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 03:39:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
John Wiegley 2017-12-06 09:37:00 -08:00
parent e8a7ae1ea1
commit ce36e68817
1 changed files with 14 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/use-package/use-package-core.el
View file

@ -1364,18 +1364,20 @@ no keyword implies `:all'."
(defmacro use-package-core (name args) (defmacro use-package-core (name args)
`(let* ((args* (use-package-normalize-keywords ,name ,args)) `(let* ((args* (use-package-normalize-keywords ,name ,args))
(use-package--form (use-package--form
(concat "\n\n" (if (eq use-package-verbose 'debug)
(pp-to-string `(use-package ,name ,@,args)) (concat "\n\n"
"\n -->\n\n" (pp-to-string `(use-package ,name ,@,args))
(pp-to-string `(use-package ,name ,@args*)) "\n -->\n\n"
"\n ==>\n\n" (pp-to-string `(use-package ,name ,@args*))
(pp-to-string "\n ==>\n\n"
(macroexp-progn (pp-to-string
(let ((use-package-verbose 'errors) (macroexp-progn
(use-package-expand-minimally t)) (let ((use-package-verbose 'errors)
(use-package-process-keywords name args* (use-package-expand-minimally t))
(and (plist-get args* :demand) (use-package-process-keywords name args*
(list :demand t))))))))) (and (plist-get args* :demand)
(list :demand t)))))))
"")))
(use-package-process-keywords name args* (use-package-process-keywords name args*
(and (plist-get args* :demand) (and (plist-get args* :demand)
(list :demand t))))) (list :demand t)))))