mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-11 16:40:45 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-log-1): In non-batch case, don't mention the file name

Browse source 
or the date here, because they are logged at the start of the file.
This commit is contained in:
Richard M. Stallman 2001-01-08 19:33:02 +00:00
parent 984c9f75e3
commit 5afd1b9cc3
1 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
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.80 $")
(defconst byte-compile-version "$Revision: 2.81 $")
;; This file is part of GNU Emacs.
@ -842,17 +842,23 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
(and byte-compile-last-warned-form
(not (eq byte-compile-current-form
byte-compile-last-warned-form))))
(if byte-compile-current-file
(insert "\n\^L\n" (current-time-string) "\n"))
(insert "While compiling "
;;; This is redundant, since it is given at the start of the file,
;;; and the extra clutter gets in the way -- rms.
;;; (if (and byte-compile-current-file
;;; (not (equal byte-compile-current-file
;;; byte-compile-last-logged-file)))
;;; (insert "\n\^L\n" (current-time-string) "\n"))
(insert "\nWhile compiling "
(if byte-compile-current-form
(format "%s" byte-compile-current-form)
"toplevel forms"))
(if byte-compile-current-file
(if (stringp byte-compile-current-file)
(insert " in file " byte-compile-current-file)
(insert " in buffer "
(buffer-name byte-compile-current-file))))
;;; This is redundant, since it is given at the start of the file,
;;; and the extra clutter gets in the way -- rms.
;;; (if byte-compile-current-file
;;; (if (stringp byte-compile-current-file)
;;; (insert " in file " byte-compile-current-file)
;;; (insert " in buffer "
;;; (buffer-name byte-compile-current-file))))
(insert ":\n")))
(insert " " string "\n")
(if (and fill (not (string-match "\n" string)))