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

Correct return value from with-elapsed-timer

Browse source
This commit is contained in:
John Wiegley 2012-06-26 06:59:54 -05:00
parent 28c6509148
commit 89a844fd9c
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -281,13 +281,14 @@
'(current-time)))) '(current-time))))
,(if use-package-verbose ,(if use-package-verbose
`(message "%s..." ,text)) `(message "%s..." ,text))
,@forms (prog1
,(when use-package-verbose ,@forms
`(let ((elapsed ,(when use-package-verbose
(float-time (time-subtract (current-time) now)))) `(let ((elapsed
(if (> elapsed 0.01) (float-time (time-subtract (current-time) now))))
(message "%s...done (%.3fs)" ,text elapsed) (if (> elapsed 0.01)
(message "%s...done" ,text)))))) (message "%s...done (%.3fs)" ,text elapsed)
(message "%s...done" ,text)))))))
(put 'with-elapsed-timer 'lisp-indent-function 1) (put 'with-elapsed-timer 'lisp-indent-function 1)