From: Naoya Yamashita <conao3@gmail.com>
Date: Sat, 19 May 2018 05:21:26 +0000 (+0900)
Subject: fix gethash default value for use-package-statistics-time
X-Git-Tag: emacs-29.0.90~1306^2~15^2~60^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db35639457;p=emacs.git

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

diff --git a/lisp/use-package/use-package-core.el b/lisp/use-package/use-package-core.el
index bd18c972303..a88efb91a21 100644
--- a/lisp/use-package/use-package-core.el
+++ b/lisp/use-package/use-package-core.el
@@ -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.