mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

(byte-compile-log-file): Clear out byte-compile-last-warned-form.

Browse Source
This commit is contained in:
Richard M. Stallman 2003-09-22 15:16:10 +00:00
parent 7cff48094e
commit 9dbd7d6674
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/emacs-lisp/bytecomp.el
View File

@ -10,7 +10,7 @@
;;; This version incorporates changes up to version 2.10 of the
;;; Zawinski-Furuseth compiler.
(defconst byte-compile-version "$Revision: 2.137 $")
(defconst byte-compile-version "$Revision: 2.138 $")
;; This file is part of GNU Emacs.
@ -975,7 +975,8 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
(setq default-directory dir)
(unless was-same
(insert (format "Entering directory `%s'\n" default-directory))))
(setq byte-compile-last-logged-file byte-compile-current-file)
(setq byte-compile-last-logged-file byte-compile-current-file
byte-compile-last-warned-form nil)
;; Do this after setting default-directory.
(unless (eq major-mode 'compilation-mode)
(compilation-mode))