(byte-compile-log-file): Always insert at eob.

(byte-compile-insert-header): Cope if user-mail-address is nil.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 2bad3a7a8632ab7a4e4e73dc3cebc5d7f1090d19..e383dc13d37b73638dabb0666160cd4a5c4640b7 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -776,6 +776,7 @@ otherwise pop it")
   (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 @@ With argument, insert value in current buffer after the form."
    (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;;; "