procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

let with-elapsed-timer return last form

Browse source
This commit is contained in:
Noam Postavsky 2013-10-12 13:58:37 -04:00
parent 3d871c7994
commit 026c46c057
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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