Mercurial > emacs
changeset 8048:5253d3981da6
(user-mail-address): New variable.
(normal-top-level): Initialize it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 25 Jun 1994 00:34:11 +0000 |
| parents | fb950b66d754 |
| children | 1a8747d19087 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Sat Jun 25 00:13:53 1994 +0000 +++ b/lisp/startup.el Sat Jun 25 00:34:11 1994 +0000 @@ -141,6 +141,9 @@ dumped image. Thus, the run-time load order is: 1. file described in this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.") +(defvar user-mail-address nil + "Full mailing address of this user.") + (defvar init-file-debug nil) (defvar init-file-had-error nil) @@ -165,6 +168,7 @@ (delete (concat "PWD=" pwd) process-environment))))))) (setq default-directory (abbreviate-file-name default-directory)) + (setq user-mail-address (concat (user-login-name) "@" (system-name))) (let ((menubar-bindings-done nil)) (unwind-protect (command-line)