From: John Wiegley <johnw@newartisans.com>
Date: Sun, 17 Jun 2012 10:12:13 +0000 (-0500)
Subject: Have loading timer include time to require
X-Git-Tag: emacs-29.0.90~1306^2~15^2~485
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4bd492f606;p=emacs.git

Have loading timer include time to require
---

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)