andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(command-line): Look for .emacs under ~/.emacs.d after looking in ~.

Browse source
This commit is contained in:
Richard M. Stallman 2002-10-26 22:41:33 +00:00
parent 15693bc3ac
commit a04d59830e
1 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/startup.el
View file

@ -916,11 +916,23 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(setq user-init-file t)
(load user-init-file-1 t t)
;; If we did not find the user's init file,
;; set user-init-file conclusively to nil;
;; don't let it be set from default.el.
(if (eq user-init-file t)
(setq user-init-file user-init-file-1))
(when (eq user-init-file t)
;; If we did not find ~/.emacs, try
;; ~/.emacs.d/.emacs.
(let ((otherfile
(expand-file-name
(file-name-nondirectory user-init-file-1)
(file-name-as-directory
(expand-file-name
".emacs.d"
(file-name-directory user-init-file-1))))))
(load otherfile t t)
;; If we did not find the user's init file,
;; set user-init-file conclusively.
;; Don't let it be set from default.el.
(when (eq user-init-file t)
(setq user-init-file user-init-file-1))))
;; If we loaded a compiled file, set
;; `user-init-file' to the source version if that