From: Andrew Innes <andrewi@gnu.org>
Date: Fri, 22 Jan 1999 15:12:59 +0000 (+0000)
Subject: (command-line):  [windows-nt]: Check for existence of
X-Git-Tag: emacs-20.4~811
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32291eb6a3ff65cc35eeedbc333e173c1c274f08;p=emacs.git

(command-line):  [windows-nt]: Check for existence of
.emacs file so as to notice .emacs.el or .emacs.elc and use them
in preference to _emacs.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index ccdc8804bd4..33e267ffe9f 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -689,7 +689,7 @@ 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)
-			    (if (file-exists-p "~/.emacs") 
+			    (if (directory-files "~" nil "^\.emacs\\(\.elc?\\)?$")
 				"~/.emacs"
 			      "~/_emacs"))
 			   ((eq system-type 'vax-vms)