mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

add 'use-package-' prefix to 'with-elapsed-timer'

Browse source 
Fixes https://github.com/jwiegley/use-package/issues/35.
This commit is contained in:
Adam Spiers 2013-12-18 11:33:51 +00:00
parent 283653ff4b
commit 8f7e878caf
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/use-package/use-package.el
View file

@ -58,7 +58,7 @@
:type 'number
:group 'use-package)
(defmacro with-elapsed-timer (text &rest forms)
(defmacro use-package-with-elapsed-timer (text &rest forms)
(let ((body `(progn ,@forms)))
(if use-package-verbose
(let ((nowvar (make-symbol "now")))
@ -72,7 +72,7 @@
(message "%s...done" ,text))))))
body)))
(put 'with-elapsed-timer 'lisp-indent-function 1)
(put 'use-package-with-elapsed-timer 'lisp-indent-function 1)
(defvar use-package-idle-timer nil)
(defvar use-package-idle-forms nil)
@ -341,13 +341,13 @@ For full documentation. please see commentary.
`(eval-after-load ,(if (stringp name) name `',name)
`(,(lambda ()
(if ,requires-test
(with-elapsed-timer
(use-package-with-elapsed-timer
,(format "Configuring package %s" name-string)
,config-body))))))
t))
`(if (and ,(or predicate t)
,requires-test)
(with-elapsed-timer
(use-package-with-elapsed-timer
,(format "Loading package %s" name-string)
(if (not ,(if (stringp name)
`(load ,name t)