Mercurial > emacs

comparison lisp/startup.el @ 57171:9bc06f7dfca8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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