# HG changeset patch # User Richard M. Stallman # Date 1116517161 0 # Node ID ad1a92f77517c9ead7b0cabebde28ce48f33574b # Parent 88b93ce112d17c59fdb36912a71ff22ecda731d4 (byte-compile-file-form-custom-declare-variable): Call byte-compile-nogroup-warn if appropriate. diff -r 88b93ce112d1 -r ad1a92f77517 lisp/emacs-lisp/bytecomp.el --- a/lisp/emacs-lisp/bytecomp.el Thu May 19 15:38:27 2005 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Thu May 19 15:39:21 2005 +0000 @@ -2170,6 +2170,8 @@ (put 'custom-declare-variable 'byte-hunk-handler 'byte-compile-file-form-custom-declare-variable) (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) (push (nth 1 (nth 1 form)) byte-compile-bound-variables)) (let ((tail (nthcdr 4 form)))