810 |
((eq system-type 'ms-dos) |
((eq system-type 'ms-dos) |
811 |
(concat "~" init-file-user "/_emacs")) |
(concat "~" init-file-user "/_emacs")) |
812 |
((eq system-type 'windows-nt) |
((eq system-type 'windows-nt) |
813 |
|
;; Prefer .emacs on Windows. |
814 |
(if (directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$") |
(if (directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$") |
815 |
"~/.emacs" |
"~/.emacs" |
816 |
"~/_emacs")) |
;; 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"))) |
821 |
((eq system-type 'vax-vms) |
((eq system-type 'vax-vms) |
822 |
"sys$login:.emacs") |
"sys$login:.emacs") |
823 |
(t |
(t |