From 5afd1b9cc3f1664cc2c659666f06b6f1454358f7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 8 Jan 2001 19:33:02 +0000 Subject: [PATCH] (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. --- lisp/emacs-lisp/bytecomp.el | 24 +++++++++++++++--------- 1 file 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))) -- 2.39.2