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

(byte-compile-file-form-custom-declare-variable):

Browse source 
Call byte-compile-nogroup-warn if appropriate.
This commit is contained in:
Richard M. Stallman 2005-05-19 15:39:21 +00:00
parent 3c9e7f42ca
commit fe33e7c83c
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/bytecomp.el
View file

@ -2170,6 +2170,8 @@ list that represents a doc string reference.
(put 'custom-declare-variable 'byte-hunk-handler (put 'custom-declare-variable 'byte-hunk-handler
'byte-compile-file-form-custom-declare-variable) 'byte-compile-file-form-custom-declare-variable)
(defun byte-compile-file-form-custom-declare-variable (form) (defun byte-compile-file-form-custom-declare-variable (form)
(when (memq 'callargs byte-compile-warnings)
(byte-compile-nogroup-warn form))
(when (memq 'free-vars byte-compile-warnings) (when (memq 'free-vars byte-compile-warnings)
(push (nth 1 (nth 1 form)) byte-compile-bound-variables)) (push (nth 1 (nth 1 form)) byte-compile-bound-variables))
(let ((tail (nthcdr 4 form))) (let ((tail (nthcdr 4 form)))