diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-13 22:20:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-13 22:20:11 +0000 |
| commit | ca96ae0b8df62c05a308f60e008e19da63ab6793 (patch) | |
| tree | 95b29387417e094980d0594b9ca8a0d15b919457 /lisp/emacs-lisp | |
| parent | 5ff436fbc59516ee412db76c50c16b33052f6735 (diff) | |
| download | emacs-ca96ae0b8df62c05a308f60e008e19da63ab6793.tar.gz emacs-ca96ae0b8df62c05a308f60e008e19da63ab6793.tar.bz2 emacs-ca96ae0b8df62c05a308f60e008e19da63ab6793.zip | |
(byte-compile-log-file): Always insert at eob.
(byte-compile-insert-header): Cope if user-mail-address is nil.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 2bad3a7a863..e383dc13d37 100644 --- 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;;; " |