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