mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-05 03:39:38 +00:00
fix gethash default value for use-package-statistics-time
float-time expect list like (HIGH LOW USEC PSEC) > HIGH has the most significant bits of the seconds, while LOW has the > least significant 16 bits. USEC and PSEC are the microsecond and > picosecond counts. by `current-time` in editfns.c
This commit is contained in:
parent
642417ac05
commit
db35639457
1 changed files with 4 additions and 4 deletions
|
@ -989,10 +989,10 @@ The date is returned as a string."
|
|||
|
||||
(defun use-package-statistics-time (package)
|
||||
"Return the time is took for PACKAGE to load."
|
||||
(+ (float-time (gethash :config-secs package 0))
|
||||
(float-time (gethash :init-secs package 0))
|
||||
(float-time (gethash :preface-secs package 0))
|
||||
(float-time (gethash :use-package-secs package 0))))
|
||||
(+ (float-time (gethash :config-secs package '(0 0 0 0)))
|
||||
(float-time (gethash :init-secs package '(0 0 0 0)))
|
||||
(float-time (gethash :preface-secs package '(0 0 0 0)))
|
||||
(float-time (gethash :use-package-secs package '(0 0 0 0)))))
|
||||
|
||||
(defun use-package-statistics-convert (package)
|
||||
"Return information about PACKAGE.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue