diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-01-08 19:33:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-01-08 19:33:02 +0000 |
| commit | 5afd1b9cc3f1664cc2c659666f06b6f1454358f7 (patch) | |
| tree | cb896c7e3b4b20937bc86096cd5ada50c20c979f | |
| parent | 984c9f75e34a839d272501f60d5dc30de6ef5e00 (diff) | |
| download | emacs-5afd1b9cc3f1664cc2c659666f06b6f1454358f7.tar.gz | |
(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.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index fd42f6bcf97..6ade734984d 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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))) |