mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(command-line): Init user-mail-address here, after reading init file.

Browse Source 
(normal-top-level): Not here.
This commit is contained in:
Richard M. Stallman 1995-10-08 19:30:41 +00:00
parent 5a31e1d01c
commit 556f7d7737
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/startup.el
View File

@ -275,9 +275,6 @@ this prefix to create a unique file name.")
(delete (concat "PWD=" pwd)
process-environment)))))))
(setq default-directory (abbreviate-file-name default-directory))
(setq user-mail-address (concat (user-login-name) "@"
(or mail-host-address
(system-name))))
;; Specify the file for recording all the auto save files of this session.
;; This is used by recover-session.
(setq auto-save-list-file-name
@ -525,6 +522,12 @@ this prefix to create a unique file name.")
(if debug-on-error-should-be-set
(setq debug-on-error debug-on-error-from-init-file)))
;; Do this here in case the init file sets mail-host-address.
(or user-mail-address
(setq user-mail-address (concat (user-login-name) "@"
(or mail-host-address
(system-name)))))
(run-hooks 'after-init-hook)
;; If *scratch* exists and init file didn't change its mode, initialize it.