From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 31 Dec 1995 19:49:39 +0000 (+0000)
Subject: (Ffile_readable_p) [MSDOS]: Use access rather than open.
X-Git-Tag: emacs-19.34~1958
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8a7d065bd14a0fa729d76fef3d87a2f7e7c2b14;p=emacs.git

(Ffile_readable_p) [MSDOS]: Use access rather than open.
---

diff --git a/src/fileio.c b/src/fileio.c
index 33e887cb4c8..921ccf96501 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2460,11 +2460,19 @@ See also `file-exists-p' and `file-attributes'.")
   if (!NILP (handler))
     return call2 (handler, Qfile_readable_p, abspath);
 
+#ifdef MSDOS
+  /* Under MS-DOS, open does not work't right, because it doesn't work for
+     directories (MS-DOS won't let you open a directory).  */
+  if (access (XSTRING (abspath)->data, 0) == 0)
+    return Qt;
+  return Qnil;
+#else /* not MSDOS */
   desc = open (XSTRING (abspath)->data, O_RDONLY);
   if (desc < 0)
     return Qnil;
   close (desc);
   return Qt;
+#endif /* not MSDOS */
 }
 
 /* Having this before file-symlink-p mysteriously caused it to be forgotten