masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 11:49:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix compile-time warnings due to the statistics-reporting code

Browse source 
The code worked because the file is using dynamic binding.
This commit is contained in:
Damien Cassou 2018-03-11 13:22:13 +01:00
parent 2a47998844
commit 69a561b86b
1 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

36
lisp/use-package/use-package-core.el
View file

@ -972,27 +972,27 @@ If RECURSED is non-nil, recurse into sublists."
(setq use-package-statistics (make-hash-table)))
(defun use-package-statistics-status (package)
"Return loading configuration status of PACKAGE."
(cond ((gethash :config statistics) "Configured")
((gethash :init statistics) "Initialized")
((gethash :preface statistics) "Prefaced")
((gethash :use-package statistics) "Declared")))
"Return loading configuration status of PACKAGE statistics."
(cond ((gethash :config package) "Configured")
((gethash :init package) "Initialized")
((gethash :preface package) "Prefaced")
((gethash :use-package package) "Declared")))
(defun use-package-statistics-last-event (package)
"Return the date when package's status last changed.
"Return the date when PACKAGE's status last changed.
The date is returned as a string."
(format-time-string "%Y-%m-%d %a %H:%M"
(or (gethash :config statistics)
(gethash :init statistics)
(gethash :preface statistics)
(gethash :use-package statistics))))
(or (gethash :config package)
(gethash :init package)
(gethash :preface package)
(gethash :use-package package))))
(defun use-package-statistics-time (package)
"Return the time is took for package to load."
(+ (float-time (gethash :config-secs statistics 0))
(float-time (gethash :init-secs statistics 0))
(float-time (gethash :preface-secs statistics 0))
(float-time (gethash :use-package-secs statistics 0))))
"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))))
(defun use-package-statistics-convert (package)
"Return information about PACKAGE.
@ -1004,9 +1004,9 @@ The information is formatted in a way suitable for
package
(vector
(symbol-name package)
(use-package-statistics-status package)
(use-package-statistics-last-event package)
(format "%.2f" (use-package-statistics-time package))))))
(use-package-statistics-status statistics)
(use-package-statistics-last-event statistics)
(format "%.2f" (use-package-statistics-time statistics))))))
(defun use-package-report ()
"Show current statistics gathered about use-package declarations.