mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

More work to silence the byte-compiler

Browse source
This commit is contained in:
John Wiegley 2015-03-18 03:10:36 -05:00
parent 46435d7b84
commit 5787ff074c
1 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/use-package/use-package.el
View file

@ -40,6 +40,7 @@
(require 'bind-key) (require 'bind-key)
(require 'bytecomp) (require 'bytecomp)
(require 'diminish nil t) (require 'diminish nil t)
(require 'bytecomp)
(declare-function package-installed-p 'package) (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 ;; Setup any required autoloads
(if defer-loading (if defer-loading
(mapcar #'(lambda (command) (apply
`(unless (fboundp ',command) #'nconc
(autoload #',command ,name-string nil t))) (mapcar #'(lambda (command)
commands)) `((unless (fboundp ',command)
(autoload #',command ,name-string nil t))
(declare-function ,command ,name-string)))
commands)))
(if (numberp deferral) (if (numberp deferral)
`((run-with-idle-timer ,deferral nil #'require ',name-symbol nil t))) `((run-with-idle-timer ,deferral nil #'require ',name-symbol nil t)))
@ -601,7 +605,9 @@ this file. Usage:
`(featurep ',requires)) `(featurep ',requires))
,@expansion)))))) ,@expansion))))))
;; (message "Expanded: %s" (pp-to-string body*)) ;; (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) (put 'use-package 'lisp-indent-function 'defun)