Mercurial > emacs
changeset 35145:85b1d35e08bd
(byte-compile-log-1): In non-batch case, don't mention the file name
or the date here, because they are logged at the start of the file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 08 Jan 2001 19:33:02 +0000 |
| parents | 41f416b6e43a |
| children | 9b49ba6631c5 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 15 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Mon Jan 08 19:32:40 2001 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Mon Jan 08 19:33:02 2001 +0000 @@ -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 @@ (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)))