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

with-elapsed-timer: only check verbosity once

Browse source
This commit is contained in:
Noam Postavsky 2013-08-31 10:30:08 -04:00
parent 9921a76e86
commit 61fd933807
1 changed files with 10 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -321,18 +321,16 @@
:group 'use-package)
(defmacro with-elapsed-timer (text &rest forms)
`(let ((now ,(if use-package-verbose
'(current-time))))
,(if use-package-verbose
`(message "%s..." ,text))
(prog1
,@forms
,(when use-package-verbose
`(let ((elapsed
(float-time (time-subtract (current-time) now))))
(if (> elapsed ,use-package-minimum-reported-time)
(message "%s...done (%.3fs)" ,text elapsed)
(message "%s...done" ,text)))))))
(if use-package-verbose
`(let ((now (current-time)))
(message "%s..." ,text)
(prog1 ,@forms
(let ((elapsed
(float-time (time-subtract (current-time) now))))
(if (> elapsed ,use-package-minimum-reported-time)
(message "%s...done (%.3fs)" ,text elapsed)
(message "%s...done" ,text)))))
`(prog1 ,@forms)))
(put 'with-elapsed-timer 'lisp-indent-function 1)