From: John Wiegley <johnw@newartisans.com>
Date: Wed, 18 Mar 2015 08:10:36 +0000 (-0500)
Subject: More work to silence the byte-compiler
X-Git-Tag: emacs-29.0.90~1306^2~15^2~369
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5787ff074c;p=emacs.git

More work to silence the byte-compiler
---

diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el
index ab77fd2baf1..ade669be483 100644
--- a/lisp/use-package/use-package.el
+++ b/lisp/use-package/use-package.el
@@ -40,6 +40,7 @@
 (require 'bind-key)
 (require 'bytecomp)
 (require 'diminish nil t)
+(require 'bytecomp)
 
 (declare-function package-installed-p 'package)
 
@@ -470,10 +471,13 @@ ARGS is a list of forms, so `((foo))' if only `foo' is being called."
 
      ;; Setup any required autoloads
      (if defer-loading
-         (mapcar #'(lambda (command)
-                     `(unless (fboundp ',command)
-                        (autoload #',command ,name-string nil t)))
-                 commands))
+         (apply
+          #'nconc
+          (mapcar #'(lambda (command)
+                      `((unless (fboundp ',command)
+                          (autoload #',command ,name-string nil t))
+                        (declare-function ,command ,name-string)))
+                  commands)))
 
      (if (numberp deferral)
          `((run-with-idle-timer ,deferral nil #'require ',name-symbol nil t)))
@@ -601,7 +605,9 @@ this file.  Usage:
                         `(featurep ',requires))
                      ,@expansion))))))
         ;; (message "Expanded: %s" (pp-to-string body*))
-        body*))))
+        `(let ((byte-compile-warnings byte-compile-warnings))
+           (byte-compile-disable-warning 'redefined)
+           ,body*)))))
 
 (put 'use-package 'lisp-indent-function 'defun)