diff options
| author | Miles Bader | 2000-10-23 10:27:47 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-10-23 10:27:47 +0000 |
| commit | 3b6542bab5e01948a157330c91c4aa273694fe66 (patch) | |
| tree | 20ad15e98b80ab69df4b42bfe9140d5f7fb439d3 | |
| parent | cb3069bb5e6a6c7b70d28e09c61ce9b9aea98537 (diff) | |
| download | emacs-3b6542bab5e01948a157330c91c4aa273694fe66.tar.gz emacs-3b6542bab5e01948a157330c91c4aa273694fe66.zip | |
(byte-compile-file): Bind `byte-compile-last-logged-file' to nil.
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c6af44f9d3c..cbb8d824c28 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -8,6 +8,7 @@ | |||
| 8 | `byte-compile-last-logged-file' to it. Test whether | 8 | `byte-compile-last-logged-file' to it. Test whether |
| 9 | byte-compile-current-file equals byte-compile-last-logged-file | 9 | byte-compile-current-file equals byte-compile-last-logged-file |
| 10 | instead of whether its nil. | 10 | instead of whether its nil. |
| 11 | (byte-compile-file): Bind `byte-compile-last-logged-file' to nil. | ||
| 11 | 12 | ||
| 12 | 2000-10-23 Stefan Monnier <monnier@cs.yale.edu> | 13 | 2000-10-23 Stefan Monnier <monnier@cs.yale.edu> |
| 13 | 14 | ||
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index bd8cd8c88af..1c75f5e5736 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.77 $") | 13 | (defconst byte-compile-version "$Revision: 2.78 $") |
| 14 | 14 | ||
| 15 | ;; This file is part of GNU Emacs. | 15 | ;; This file is part of GNU Emacs. |
| 16 | 16 | ||
| @@ -1349,6 +1349,7 @@ The value is t if there were no errors, nil if errors." | |||
| 1349 | (if byte-compile-verbose | 1349 | (if byte-compile-verbose |
| 1350 | (message "Compiling %s..." filename)) | 1350 | (message "Compiling %s..." filename)) |
| 1351 | (let ((byte-compile-current-file filename) | 1351 | (let ((byte-compile-current-file filename) |
| 1352 | (byte-compile-last-logged-file nil) | ||
| 1352 | (set-auto-coding-for-load t) | 1353 | (set-auto-coding-for-load t) |
| 1353 | target-file input-buffer output-buffer | 1354 | target-file input-buffer output-buffer |
| 1354 | byte-compile-dest-file) | 1355 | byte-compile-dest-file) |