/[emacs]/emacs/lisp/emacs-lisp/bytecomp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/bytecomp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.164 by rms, Sat May 14 12:29:22 2005 UTC revision 2.165 by rms, Thu May 19 15:39:21 2005 UTC
# Line 2170  list that represents a doc string refere Line 2170  list that represents a doc string refere
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)))

Legend:
Removed from v.2.164  
changed lines
  Added in v.2.165

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26