From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 28 Sep 2019 07:25:08 +0000 (+0300)
Subject: Fix running on MS-Windows with non-existing home directory
X-Git-Tag: emacs-27.0.90~1397
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a48ce43d37e6d7e14a51ddfc8ead9c67a1bec41;p=emacs.git

Fix running on MS-Windows with non-existing home directory

* lisp/startup.el (startup--xdg-or-homedot): Don't access a
non-existent user home directory on windows-nt systems.
(Bug#37536)
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 6e2094d678c..863e9aed16d 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -510,8 +510,9 @@ DIRS are relative."
 				 "/.emacs.d/"))))
       (if (or (file-exists-p emacs-d-dir)
 	      (if (eq system-type 'windows-nt)
-		  (directory-files (concat "~" user-name) nil
-				   "\\`[._]emacs\\(\\.elc?\\)?\\'")
+                  (if (file-directory-p (concat "~" user-name))
+                      (directory-files (concat "~" user-name) nil
+                                       "\\`[._]emacs\\(\\.elc?\\)?\\'"))
 		(file-exists-p (concat "~" init-file-user
 				       (if (eq system-type 'ms-dos)
 					   "/_emacs"