# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 820439379 0
# Node ID 31e37f3d8ccd50f3b74c7566d758e0b31ebbf75c
# Parent  c9243845a191c1f1758aba060a5c188b73ebc7f7
(Ffile_readable_p) [MSDOS]: Use access rather than open.

diff -r c9243845a191 -r 31e37f3d8ccd src/fileio.c
--- a/src/fileio.c	Sun Dec 31 19:21:18 1995 +0000
+++ b/src/fileio.c	Sun Dec 31 19:49:39 1995 +0000
@@ -2460,11 +2460,19 @@
   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