masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-06 20:29:36 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

A few changes for byte-compilation

Browse source
This commit is contained in:
John Wiegley 2015-03-16 11:50:32 -05:00
parent 1fe2c1c056
commit 34bc31e1d4
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/use-package/use-package.el
View file

@ -158,9 +158,7 @@ possible."
,(use-package-progn body) ,(use-package-progn body)
(let ((elapsed (let ((elapsed
(float-time (time-subtract (current-time) ,nowvar)))) (float-time (time-subtract (current-time) ,nowvar))))
(if (> elapsed (if (> elapsed ,use-package-minimum-reported-time)
(or (bound-and-true-p use-package-minimum-reported-time)
"0.01"))
(message "%s...done (%.3fs)" ,text elapsed) (message "%s...done (%.3fs)" ,text elapsed)
(message "%s...done" ,text))))) (message "%s...done" ,text)))))
(use-package-progn body))))) (use-package-progn body)))))
@ -429,7 +427,8 @@ possible."
`(diminish (quote ,var)))) `(diminish (quote ,var))))
(plist-get args :diminish)))) (plist-get args :diminish))))
(config-defun (make-symbol (concat name-string "-config")))) (config-defun
(make-symbol (concat "use-package--" name-string "--config"))))
(setq commands (delete-dups commands)) (setq commands (delete-dups commands))
@ -438,7 +437,8 @@ possible."
(list (plist-get args :preface)) (list (plist-get args :preface))
;; Setup the load-path ;; Setup the load-path
(mapcar #'(lambda (path) `(add-to-list 'load-path ,path)) (mapcar #'(lambda (path)
`(eval-and-compile (add-to-list 'load-path ,path)))
(plist-get args :load-path)) (plist-get args :load-path))
;; Setup any required autoloads ;; Setup any required autoloads