From: John Wiegley <johnw@newartisans.com>
Date: Tue, 17 Mar 2015 16:50:25 +0000 (-0500)
Subject: Other minor improvements for byte-compiling
X-Git-Tag: emacs-29.0.90~1306^2~15^2~370
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46435d7b84;p=emacs.git

Other minor improvements for byte-compiling
---

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*))))