/[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.123 by monnier, Sat Apr 12 20:28:10 2003 UTC revision 2.124 by monnier, Sat Apr 12 21:39:50 2003 UTC
# Line 2065  list that represents a doc string refere Line 2065  list that represents a doc string refere
2065        ;; and not do a file-boundary.        ;; and not do a file-boundary.
2066        (byte-compile-keep-pending form)        (byte-compile-keep-pending form)
2067      (when (memq 'free-vars byte-compile-warnings)      (when (memq 'free-vars byte-compile-warnings)
2068        (push (nth 1 form) byte-compile-dynamic-variables)        (push (nth 1 form) byte-compile-bound-variables)
2069        (if (eq (car form) 'defconst)        (if (eq (car form) 'defconst)
2070            (push (nth 1 form) byte-compile-const-variables)))            (push (nth 1 form) byte-compile-const-variables)))
2071      (cond ((consp (nth 2 form))      (cond ((consp (nth 2 form))
# Line 3561  If FORM is a lambda or a macro, byte-com Line 3561  If FORM is a lambda or a macro, byte-com
3561         "%s called with %d arguments, but accepts only %s"         "%s called with %d arguments, but accepts only %s"
3562         fun (length (cdr form)) "2-3"))         fun (length (cdr form)) "2-3"))
3563      (when (memq 'free-vars byte-compile-warnings)      (when (memq 'free-vars byte-compile-warnings)
3564        (push var byte-compile-dynamic-variables)        (push var byte-compile-bound-variables)
3565        (if (eq fun 'defconst)        (if (eq fun 'defconst)
3566            (push var byte-compile-const-variables)))            (push var byte-compile-const-variables)))
3567      (byte-compile-body-do-effect      (byte-compile-body-do-effect

Legend:
Removed from v.2.123  
changed lines
  Added in v.2.124

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