]> git.eshelyaron.com Git - emacs.git/commitdiff
fix gethash default value for use-package-statistics-time
authorNaoya Yamashita <conao3@gmail.com>
Sat, 19 May 2018 05:21:26 +0000 (14:21 +0900)
committerNaoya Yamashita <conao3@gmail.com>
Sat, 19 May 2018 05:21:26 +0000 (14:21 +0900)
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

lisp/use-package/use-package-core.el

index bd18c972303d0226e185b595510a4ea02d58722f..a88efb91a21affa95c25dbf982a5348a4e035e75 100644 (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.