diff options
| author | Stefan Monnier | 2003-04-12 21:39:50 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-04-12 21:39:50 +0000 |
| commit | 8898f44ea677d1fd903ea8f1e4b7b895f15cc6f0 (patch) | |
| tree | d287ebcc442fcc7c09d11c7c57b2b366749c994f /lisp | |
| parent | a259425b582d6d09333599a1929ba9d1c1828e5d (diff) | |
| download | emacs-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.el | 6 |
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 |