From 5787ff074cbfbe7589c688f6fbeac1c89c79dfdd Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 18 Mar 2015 03:10:36 -0500 Subject: [PATCH] More work to silence the byte-compiler --- lisp/use-package/use-package.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) 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) -- 2.39.2