# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797811611 0
# Node ID f499628d7e5b087a75f6d502005c56c073f03d97
# Parent  6e6385618bb459f416dfeb3e8535573adcdf81f5
(byte-compile-log-file): Always insert at eob.
(byte-compile-insert-header): Cope if user-mail-address is nil.

diff -r 6e6385618bb4 -r f499628d7e5b lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Thu Apr 13 21:34:34 1995 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Thu Apr 13 22:20:11 1995 +0000
@@ -776,6 +776,7 @@
   (and byte-compile-current-file (not noninteractive)
        (save-excursion
 	 (set-buffer (get-buffer-create "*Compile-Log*"))
+	 (goto-char (point-max))
 	 (insert "\n\^L\nCompiling "
 		 (if (stringp byte-compile-current-file)
 		     (concat "file " byte-compile-current-file)
@@ -1374,7 +1375,10 @@
    (if (byte-compile-version-cond byte-compile-compatibility) 18 19)
    "\000\000\000\n"
    )
-  (insert ";;; compiled by " user-mail-address " on "
+  (insert ";;; compiled by "
+	  (or user-mail-address
+	      (concat (user-login-name) "@" (system-name)))
+	  " on "
 	  (current-time-string) "\n;;; from file " filename "\n")
   (insert ";;; emacs version " emacs-version ".\n")
   (insert ";;; bytecomp version " byte-compile-version "\n;;; "