aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorStefan Monnier2003-04-12 21:39:50 +0000
committerStefan Monnier2003-04-12 21:39:50 +0000
commit8898f44ea677d1fd903ea8f1e4b7b895f15cc6f0 (patch)
treed287ebcc442fcc7c09d11c7c57b2b366749c994f /lisp
parenta259425b582d6d09333599a1929ba9d1c1828e5d (diff)
downloademacs-8898f44ea677d1fd903ea8f1e4b7b895f15cc6f0.tar.gz
emacs-8898f44ea677d1fd903ea8f1e4b7b895f15cc6f0.zip
(byte-compile-file-form-defvar, byte-compile-defvar):
Fix last commit which mistakenly relied on not-yet committed code.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emacs-lisp/bytecomp.el6
1 files 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 @@
10 10
11;;; This version incorporates changes up to version 2.10 of the 11;;; This version incorporates changes up to version 2.10 of the
12;;; Zawinski-Furuseth compiler. 12;;; Zawinski-Furuseth compiler.
13(defconst byte-compile-version "$Revision: 2.122 $") 13(defconst byte-compile-version "$Revision: 2.123 $")
14 14
15;; This file is part of GNU Emacs. 15;; This file is part of GNU Emacs.
16 16
@@ -2065,7 +2065,7 @@ list that represents a doc string reference.
2065 ;; and not do a file-boundary. 2065 ;; and not do a file-boundary.
2066 (byte-compile-keep-pending form) 2066 (byte-compile-keep-pending form)
2067 (when (memq 'free-vars byte-compile-warnings) 2067 (when (memq 'free-vars byte-compile-warnings)
2068 (push (nth 1 form) byte-compile-dynamic-variables) 2068 (push (nth 1 form) byte-compile-bound-variables)
2069 (if (eq (car form) 'defconst) 2069 (if (eq (car form) 'defconst)
2070 (push (nth 1 form) byte-compile-const-variables))) 2070 (push (nth 1 form) byte-compile-const-variables)))
2071 (cond ((consp (nth 2 form)) 2071 (cond ((consp (nth 2 form))
@@ -3561,7 +3561,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
3561 "%s called with %d arguments, but accepts only %s" 3561 "%s called with %d arguments, but accepts only %s"
3562 fun (length (cdr form)) "2-3")) 3562 fun (length (cdr form)) "2-3"))
3563 (when (memq 'free-vars byte-compile-warnings) 3563 (when (memq 'free-vars byte-compile-warnings)
3564 (push var byte-compile-dynamic-variables) 3564 (push var byte-compile-bound-variables)
3565 (if (eq fun 'defconst) 3565 (if (eq fun 'defconst)
3566 (push var byte-compile-const-variables))) 3566 (push var byte-compile-const-variables)))
3567 (byte-compile-body-do-effect 3567 (byte-compile-body-do-effect