From a8a7d065bd14a0fa729d76fef3d87a2f7e7c2b14 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 31 Dec 1995 19:49:39 +0000 Subject: [PATCH] (Ffile_readable_p) [MSDOS]: Use access rather than open. --- src/fileio.c | 8 ++++++++ 1 file changed, 8 insertions(+) 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 -- 2.39.2