# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 978982382 0
# Node ID 85b1d35e08bd1a54a5d4c4a3e18a2b13325a6806
# Parent  41f416b6e43a95c220832556c06bc9c5ccae1850
(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.

diff -r 41f416b6e43a -r 85b1d35e08bd lisp/emacs-lisp/bytecomp.el
--- 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)))