2170 |
(put 'custom-declare-variable 'byte-hunk-handler |
(put 'custom-declare-variable 'byte-hunk-handler |
2171 |
'byte-compile-file-form-custom-declare-variable) |
'byte-compile-file-form-custom-declare-variable) |
2172 |
(defun byte-compile-file-form-custom-declare-variable (form) |
(defun byte-compile-file-form-custom-declare-variable (form) |
2173 |
|
(when (memq 'callargs byte-compile-warnings) |
2174 |
|
(byte-compile-nogroup-warn form)) |
2175 |
(when (memq 'free-vars byte-compile-warnings) |
(when (memq 'free-vars byte-compile-warnings) |
2176 |
(push (nth 1 (nth 1 form)) byte-compile-bound-variables)) |
(push (nth 1 (nth 1 form)) byte-compile-bound-variables)) |
2177 |
(let ((tail (nthcdr 4 form))) |
(let ((tail (nthcdr 4 form))) |