diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2013-10-12 13:52:57 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2013-10-12 14:26:50 -0400 |
| commit | 3d871c79947351459ab5f1b65a4f8ff81bcf570c (patch) | |
| tree | 2859a0e89c7627964143a983137314ecbdc4f510 | |
| parent | 61fd933807ff23be89289c23cbc54caa3bdb2426 (diff) | |
| download | emacs-3d871c7994.tar.gz | |
make `with-elapsed-timer' hygienic
| -rw-r--r-- | lisp/use-package/use-package.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index 33aa332fd16..9e5d2cbc945 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -322,14 +322,15 @@ (defmacro with-elapsed-timer (text &rest forms) (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))))) + (let ((nowvar (make-symbol "now"))) + `(let ((,nowvar (current-time))) + (message "%s..." ,text) + (prog1 ,@forms + (let ((elapsed + (float-time (time-subtract (current-time) ,nowvar)))) + (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) |