From 89a844fd9cc09df9535a6227d1d094fbaec4f522 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 26 Jun 2012 06:59:54 -0500 Subject: [PATCH] Correct return value from with-elapsed-timer --- lisp/use-package/use-package.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index f70396195a3..35c2fad07d4 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -281,13 +281,14 @@ '(current-time)))) ,(if use-package-verbose `(message "%s..." ,text)) - ,@forms - ,(when use-package-verbose - `(let ((elapsed - (float-time (time-subtract (current-time) now)))) - (if (> elapsed 0.01) - (message "%s...done (%.3fs)" ,text elapsed) - (message "%s...done" ,text)))))) + (prog1 + ,@forms + ,(when use-package-verbose + `(let ((elapsed + (float-time (time-subtract (current-time) now)))) + (if (> elapsed 0.01) + (message "%s...done (%.3fs)" ,text elapsed) + (message "%s...done" ,text))))))) (put 'with-elapsed-timer 'lisp-indent-function 1) -- 2.39.2