From 34bc31e1d4a83a2a8ae9d13439de1a59e1e21d56 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 16 Mar 2015 11:50:32 -0500 Subject: [PATCH] A few changes for byte-compilation --- lisp/use-package/use-package.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index c31314cd05e..d81d7e4e77e 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -158,9 +158,7 @@ possible." ,(use-package-progn body) (let ((elapsed (float-time (time-subtract (current-time) ,nowvar)))) - (if (> elapsed - (or (bound-and-true-p use-package-minimum-reported-time) - "0.01")) + (if (> elapsed ,use-package-minimum-reported-time) (message "%s...done (%.3fs)" ,text elapsed) (message "%s...done" ,text))))) (use-package-progn body))))) @@ -429,7 +427,8 @@ possible." `(diminish (quote ,var)))) (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)) @@ -438,7 +437,8 @@ possible." (list (plist-get args :preface)) ;; 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)) ;; Setup any required autoloads -- 2.39.2