Mercurial > emacs
comparison lisp/startup.el @ 57171:9bc06f7dfca8
(command-line) [windows-nt]: Try .emacs first, then
_emacs, but revert to .emacs if neither exists in home directory.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Mon, 20 Sep 2004 20:09:29 +0000 |
parents | 5ce2d0959cd2 |
children | 0e1bc02edee6 c06211125947 0796fc36c2bd |
comparison
equal
deleted
inserted
replaced
57170:01f54f65a36b | 57171:9bc06f7dfca8 |
---|---|
808 (let ((user-init-file-1 | 808 (let ((user-init-file-1 |
809 (cond | 809 (cond |
810 ((eq system-type 'ms-dos) | 810 ((eq system-type 'ms-dos) |
811 (concat "~" init-file-user "/_emacs")) | 811 (concat "~" init-file-user "/_emacs")) |
812 ((eq system-type 'windows-nt) | 812 ((eq system-type 'windows-nt) |
813 ;; Prefer .emacs on Windows. | |
813 (if (directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$") | 814 (if (directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$") |
814 "~/.emacs" | 815 "~/.emacs" |
815 "~/_emacs")) | 816 ;; Also support _emacs for compatibility. |
817 (if (directory-files "~" nil "^_emacs\\(\\.elc?\\)?$") | |
818 "~/_emacs" | |
819 ;; But default to .emacs if _emacs does not exist. | |
820 "~/.emacs"))) | |
816 ((eq system-type 'vax-vms) | 821 ((eq system-type 'vax-vms) |
817 "sys$login:.emacs") | 822 "sys$login:.emacs") |
818 (t | 823 (t |
819 (concat "~" init-file-user "/.emacs"))))) | 824 (concat "~" init-file-user "/.emacs"))))) |
820 ;; This tells `load' to store the file name found | 825 ;; This tells `load' to store the file name found |