[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.123 
emacs/lisp/emacs-lisp/bytecomp.el:2.124
*** emacs/lisp/emacs-lisp/bytecomp.el:2.123     Sat Apr 12 16:28:10 2003
--- emacs/lisp/emacs-lisp/bytecomp.el   Sat Apr 12 17:39:50 2003
***************
*** 10,16 ****
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.123 $")
  
  ;; This file is part of GNU Emacs.
  
--- 10,16 ----
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.124 $")
  
  ;; This file is part of GNU Emacs.
  
***************
*** 2065,2071 ****
        ;; and not do a file-boundary.
        (byte-compile-keep-pending form)
      (when (memq 'free-vars byte-compile-warnings)
!       (push (nth 1 form) byte-compile-dynamic-variables)
        (if (eq (car form) 'defconst)
          (push (nth 1 form) byte-compile-const-variables)))
      (cond ((consp (nth 2 form))
--- 2065,2071 ----
        ;; and not do a file-boundary.
        (byte-compile-keep-pending form)
      (when (memq 'free-vars byte-compile-warnings)
!       (push (nth 1 form) byte-compile-bound-variables)
        (if (eq (car form) 'defconst)
          (push (nth 1 form) byte-compile-const-variables)))
      (cond ((consp (nth 2 form))
***************
*** 3561,3567 ****
         "%s called with %d arguments, but accepts only %s"
         fun (length (cdr form)) "2-3"))
      (when (memq 'free-vars byte-compile-warnings)
!       (push var byte-compile-dynamic-variables)
        (if (eq fun 'defconst)
          (push var byte-compile-const-variables)))
      (byte-compile-body-do-effect
--- 3561,3567 ----
         "%s called with %d arguments, but accepts only %s"
         fun (length (cdr form)) "2-3"))
      (when (memq 'free-vars byte-compile-warnings)
!       (push var byte-compile-bound-variables)
        (if (eq fun 'defconst)
          (push var byte-compile-const-variables)))
      (byte-compile-body-do-effect