From: John Wiegley <johnw@newartisans.com>
Date: Tue, 26 Jun 2012 11:59:54 +0000 (-0500)
Subject: Correct return value from with-elapsed-timer
X-Git-Tag: emacs-29.0.90~1306^2~15^2~471
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=89a844fd9c;p=emacs.git

Correct return value from with-elapsed-timer
---

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)