Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 9414:fae44b2323fe
(byte-compile-insert-header): Use user-mail-address.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 09 Oct 1994 17:23:09 +0000 |
| parents | 0199ece40d91 |
| children | ae6fed248fb9 |
comparison
equal
deleted
inserted
replaced
| 9413:e54eede71446 | 9414:fae44b2323fe |
|---|---|
| 1334 (insert | 1334 (insert |
| 1335 ";ELC" | 1335 ";ELC" |
| 1336 (if (byte-compile-version-cond byte-compile-compatibility) 18 19) | 1336 (if (byte-compile-version-cond byte-compile-compatibility) 18 19) |
| 1337 "\000\000\000\n" | 1337 "\000\000\000\n" |
| 1338 ) | 1338 ) |
| 1339 (insert ";;; compiled by " (user-login-name) "@" (system-name) " on " | 1339 (insert ";;; compiled by " user-mail-address " on " |
| 1340 (current-time-string) "\n;;; from file " filename "\n") | 1340 (current-time-string) "\n;;; from file " filename "\n") |
| 1341 (insert ";;; emacs version " emacs-version ".\n") | 1341 (insert ";;; emacs version " emacs-version ".\n") |
| 1342 (insert ";;; bytecomp version " byte-compile-version "\n;;; " | 1342 (insert ";;; bytecomp version " byte-compile-version "\n;;; " |
| 1343 (cond | 1343 (cond |
| 1344 ((eq byte-optimize 'source) "source-level optimization only") | 1344 ((eq byte-optimize 'source) "source-level optimization only") |