From 8898f44ea677d1fd903ea8f1e4b7b895f15cc6f0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 12 Apr 2003 21:39:50 +0000 Subject: [PATCH] (byte-compile-file-form-defvar, byte-compile-defvar): Fix last commit which mistakenly relied on not-yet committed code. --- lisp/emacs-lisp/bytecomp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 296265618b5..bb14315accf 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -10,7 +10,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.122 $") +(defconst byte-compile-version "$Revision: 2.123 $") ;; This file is part of GNU Emacs. @@ -2065,7 +2065,7 @@ list that represents a doc string reference. ;; 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) + (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,7 +3561,7 @@ If FORM is a lambda or a macro, byte-compile it as a function." "%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) + (push var byte-compile-bound-variables) (if (eq fun 'defconst) (push var byte-compile-const-variables))) (byte-compile-body-do-effect -- 2.39.2