mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(user-mail-address): New variable.

Browse Source 
(normal-top-level): Initialize it.
This commit is contained in:
Richard M. Stallman 1994-06-25 00:34:11 +00:00
parent 99bc28f43e
commit c10d1f062e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/startup.el
View File

@ -141,6 +141,9 @@ higher incidence of change, don't make sense to load into emacs'
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 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
(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)