Have loading timer include time to require

This commit is contained in:
John Wiegley 2012-06-17 05:12:13 -05:00
parent bf6c23044b
commit 4bd492f606

View file

@ -305,15 +305,15 @@
t)) t))
`(if (and ,(or predicate t) `(if (and ,(or predicate t)
,requires-test) ,requires-test)
(if ,(if (stringp name) (with-elapsed-timer
`(load ,name t) ,(format "Loading package %s" name-string)
`(require ',name nil t)) (if (not ,(if (stringp name)
(with-elapsed-timer `(load ,name t)
,(format "Loading package %s" name-string) `(require ',name nil t)))
,init-body (message "Could not load package %s" ,name-string)
,config-body ,init-body
t) ,config-body
(message "Could not load package %s" ,name-string)))))))) t))))))))
(put 'use-package 'lisp-indent-function 1) (put 'use-package 'lisp-indent-function 1)