From 026c46c057f85335ffd70e84eaf38e8deaf1865a Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sat, 12 Oct 2013 13:58:37 -0400 Subject: [PATCH] let with-elapsed-timer return last form --- lisp/use-package/use-package.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index 9e5d2cbc945..f940816c2cc 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -321,17 +321,18 @@ :group 'use-package) (defmacro with-elapsed-timer (text &rest forms) - (if use-package-verbose - (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))) + (let ((body `(progn ,@forms))) + (if use-package-verbose + (let ((nowvar (make-symbol "now"))) + `(let ((,nowvar (current-time))) + (message "%s..." ,text) + (prog1 ,body + (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)))))) + ,body))) (put 'with-elapsed-timer 'lisp-indent-function 1) -- 2.39.2