mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Merge pull request from phillord/master

Browse Source 
Load time display option.
GitHub-reference: https://github.com/jwiegley/use-package/issues/15
This commit is contained in:
John Wiegley 2013-02-05 22:13:29 -08:00
commit 49d25ce022
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/use-package/use-package.el
View File

@ -276,6 +276,12 @@
:type 'boolean
:group 'use-package)
(defcustom use-package-minimum-reported-time 0.01
"Minimal load time that will be reported"
:type 'number
:group 'use-package
)
(defmacro with-elapsed-timer (text &rest forms)
`(let ((now ,(if use-package-verbose
'(current-time))))
@ -286,7 +292,7 @@
,(when use-package-verbose
`(let ((elapsed
(float-time (time-subtract (current-time) now))))
(if (> elapsed 0.01)
(if (> elapsed use-package-minimum-reported-time)
(message "%s...done (%.3fs)" ,text elapsed)
(message "%s...done" ,text)))))))