From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 10 Feb 2018 10:45:53 +0000 (+0200)
Subject: Avoid infinite recursion in file_directory_p
X-Git-Tag: emacs-27.0.90~5709
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6dcfdb1d4b7d8936c6d549ffd3206f50ed61e9cf;p=emacs.git

Avoid infinite recursion in file_directory_p

* src/fileio.c (file_directory_p) [DOS_NT]: Call faccessat on
MS-DOS as well, to avoid infinite recursion introduced by last
change in this function.
---

diff --git a/src/fileio.c b/src/fileio.c
index b0ef3d4e91f..52ca8b6297e 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2697,7 +2697,7 @@ See `file-symlink-p' to distinguish symlinks.  */)
 bool
 file_directory_p (Lisp_Object file)
 {
-#ifdef WINDOWSNT
+#ifdef DOS_NT
   /* This is cheaper than 'stat'.  */
   return faccessat (AT_FDCWD, SSDATA (file), D_OK, AT_EACCESS) == 0;
 #else