From 4bd492f606f29f3ec527e4a2527a1cf00ea77c14 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sun, 17 Jun 2012 05:12:13 -0500 Subject: [PATCH] Have loading timer include time to require --- lisp/use-package/use-package.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index 5bd8df7f9e4..7ee39875eeb 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -305,15 +305,15 @@ t)) `(if (and ,(or predicate t) ,requires-test) - (if ,(if (stringp name) - `(load ,name t) - `(require ',name nil t)) - (with-elapsed-timer - ,(format "Loading package %s" name-string) - ,init-body - ,config-body - t) - (message "Could not load package %s" ,name-string)))))))) + (with-elapsed-timer + ,(format "Loading package %s" name-string) + (if (not ,(if (stringp name) + `(load ,name t) + `(require ',name nil t))) + (message "Could not load package %s" ,name-string) + ,init-body + ,config-body + t)))))))) (put 'use-package 'lisp-indent-function 1) -- 2.39.2