procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(command-line) [windows-nt]: Try .emacs first, then

Browse source 
_emacs, but revert to .emacs if neither exists in home directory.
This commit is contained in:
Jason Rumney 2004-09-20 20:10:00 +00:00
parent cde090ee08
commit fe7ecaf2e3
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2004-09-20 Jason Rumney <jasonr@gnu.org>
* startup.el (command-line) [windows-nt]: Try .emacs first, then
_emacs, but revert to .emacs if neither exists in home directory.
2004-09-20 John Paul Wallington <jpw@gnu.org>
* bindings.el (completion-ignored-extensions): Add .dfsl.

7
lisp/startup.el
View file

@ -810,9 +810,14 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
((eq system-type 'ms-dos)
(concat "~" init-file-user "/_emacs"))
((eq system-type 'windows-nt)
;; Prefer .emacs on Windows.
(if (directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$")
"~/.emacs"
"~/_emacs"))
;; Also support _emacs for compatibility.
(if (directory-files "~" nil "^_emacs\\(\\.elc?\\)?$")
"~/_emacs"
;; But default to .emacs if _emacs does not exist.
"~/.emacs")))
((eq system-type 'vax-vms)
"sys$login:.emacs")
(t