diff options
| author | Richard M. Stallman | 1995-05-15 23:01:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-05-15 23:01:17 +0000 |
| commit | 09bc9531d918220dabff9d1f2ffddd0df81e08b6 (patch) | |
| tree | a01268643043a62eda483f021cc38e6c81227834 | |
| parent | bcde3748c6627f312397907fc87f6666fe695ddb (diff) | |
| download | emacs-09bc9531d918220dabff9d1f2ffddd0df81e08b6.tar.gz emacs-09bc9531d918220dabff9d1f2ffddd0df81e08b6.zip | |
(byte-compile-insert-header): Cope if user-mail-address is unbound.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 333fde26491..b368f40e3bf 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -1376,7 +1376,7 @@ With argument, insert value in current buffer after the form." | |||
| 1376 | "\000\000\000\n" | 1376 | "\000\000\000\n" |
| 1377 | ) | 1377 | ) |
| 1378 | (insert ";;; compiled by " | 1378 | (insert ";;; compiled by " |
| 1379 | (or user-mail-address | 1379 | (or (and (boundp 'user-mail-address) user-mail-address) |
| 1380 | (concat (user-login-name) "@" (system-name))) | 1380 | (concat (user-login-name) "@" (system-name))) |
| 1381 | " on " | 1381 | " on " |
| 1382 | (current-time-string) "\n;;; from file " filename "\n") | 1382 | (current-time-string) "\n;;; from file " filename "\n") |