mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(byte-compile-insert-header): Cope if user-mail-address is nil.
This commit is contained in:
Richard M. Stallman 1995-04-13 22:20:11 +00:00
parent 5ff436fbc5
commit ca96ae0b8d
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/bytecomp.el
View file

@ -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;;; "