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:
Naoya Yamashita 2018-05-19 14:21:26 +09:00
parent 642417ac05
commit db35639457

View file

@ -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.