From 46435d7b84b0ca7b8829c2928f74e5a82b12464d Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 17 Mar 2015 11:50:25 -0500 Subject: [PATCH] Other minor improvements for byte-compiling --- lisp/use-package/use-package.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index 10ae493b635..ab77fd2baf1 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -480,7 +480,7 @@ ARGS is a list of forms, so `((foo))' if only `foo' is being called." (when (bound-and-true-p byte-compile-current-file) (mapcar #'(lambda (fn) `(declare-function ,fn ,name-string)) - (append (plist-get args :functions) commands))) + (plist-get args :functions))) ;; (if (and defer-loading config-body) ;; `((defalias ',config-defun #'(lambda () ,config-body*)))) @@ -594,13 +594,12 @@ this file. Usage: (requires (plist-get args* :requires)) (body* (use-package-progn - (use-package-expand "use-package" "expansion" - (if (null requires) - expansion - `((if ,(if (listp requires) - `(not (member nil (mapcar #'featurep ',requires))) - `(featurep ',requires)) - ,@expansion))))))) + (if (null requires) + expansion + `((if ,(if (listp requires) + `(not (member nil (mapcar #'featurep ',requires))) + `(featurep ',requires)) + ,@expansion)))))) ;; (message "Expanded: %s" (pp-to-string body*)) body*)))) -- 2.39.2