masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-06 04:09:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

make `with-elapsed-timer' hygienic

Browse source
This commit is contained in:
Noam Postavsky 2013-10-12 13:52:57 -04:00
parent 61fd933807
commit 3d871c7994
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -322,14 +322,15 @@
(defmacro with-elapsed-timer (text &rest forms) (defmacro with-elapsed-timer (text &rest forms)
(if use-package-verbose (if use-package-verbose
`(let ((now (current-time))) (let ((nowvar (make-symbol "now")))
`(let ((,nowvar (current-time)))
(message "%s..." ,text) (message "%s..." ,text)
(prog1 ,@forms (prog1 ,@forms
(let ((elapsed (let ((elapsed
(float-time (time-subtract (current-time) now)))) (float-time (time-subtract (current-time) ,nowvar))))
(if (> elapsed ,use-package-minimum-reported-time) (if (> elapsed ,use-package-minimum-reported-time)
(message "%s...done (%.3fs)" ,text elapsed) (message "%s...done (%.3fs)" ,text elapsed)
(message "%s...done" ,text))))) (message "%s...done" ,text))))))
`(prog1 ,@forms))) `(prog1 ,@forms)))
(put 'with-elapsed-timer 'lisp-indent-function 1) (put 'with-elapsed-timer 'lisp-indent-function 1)