Mercurial > emacs
changeset 11432:f499628d7e5b
(byte-compile-log-file): Always insert at eob.
(byte-compile-insert-header): Cope if user-mail-address is nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 13 Apr 1995 22:20:11 +0000 |
| parents | 6e6385618bb4 |
| children | 6f7bdb6c3739 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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;;; "