From 61fd933807ff23be89289c23cbc54caa3bdb2426 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sat, 31 Aug 2013 10:30:08 -0400 Subject: [PATCH] with-elapsed-timer: only check verbosity once --- lisp/use-package/use-package.el | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index eb3c7030108..33aa332fd16 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -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) -- 2.39.2