procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1995-05-15 23:01:17 +00:00
parent bcde3748c6
commit 09bc9531d9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1376,7 +1376,7 @@ With argument, insert value in current buffer after the form."
"\000\000\000\n"
)
(insert ";;; compiled by "
(or user-mail-address
(or (and (boundp 'user-mail-address) user-mail-address)
(concat (user-login-name) "@" (system-name)))
" on "
(current-time-string) "\n;;; from file " filename "\n")