# HG changeset patch
# User Andrew Choi <akochoi@shaw.ca>
# Date 998636941 0
# Node ID ffa8f910b5f1b6e307ef9ddc34d40b2c4c686aad
# Parent  86b624b00b777400b5c776ad528cb480cd28a016
2001-08-24  Andrew Choi  <akochoi@cse.cuhk.edu.hk>

	* fileio.c (Ffile_readable_p) [macintosh]: Call access instead of
	open to determine whether file is readable (as for DOS_NT).

diff -r 86b624b00b77 -r ffa8f910b5f1 src/ChangeLog
--- a/src/ChangeLog	Thu Aug 23 22:17:34 2001 +0000
+++ b/src/ChangeLog	Fri Aug 24 07:09:01 2001 +0000
@@ -1,3 +1,8 @@
+2001-08-24  Andrew Choi  <akochoi@cse.cuhk.edu.hk>
+
+	* fileio.c (Ffile_readable_p) [macintosh]: Call access instead of
+	open to determine whether file is readable (as for DOS_NT).
+
 2001-08-23  Gerd Moellmann  <gerd@gnu.org>
 
 	* fileio.c (Finsert_file_contents): If VISIT is non-nil, and
@@ -282,7 +287,7 @@
 	* coding.c (setup_coding_system): Don't do any designation based
 	on reg_bits if charset is not yet defined.
 
-	* lisp.h (XVECTOR): Verify correct object type before returning a
+  	* lisp.h (XVECTOR): Verify correct object type before returning a
 	pointer, using eassert.
 
 2001-07-17  Gerd Moellmann  <gerd@gnu.org>
diff -r 86b624b00b77 -r ffa8f910b5f1 src/fileio.c
--- a/src/fileio.c	Thu Aug 23 22:17:34 2001 +0000
+++ b/src/fileio.c	Fri Aug 24 07:09:01 2001 +0000
@@ -2967,12 +2967,13 @@
 
   absname = ENCODE_FILE (absname);
 
-#ifdef DOS_NT
-  /* Under MS-DOS and Windows, open does not work for directories.  */
+#if defined(DOS_NT) || defined(macintosh)
+  /* Under MS-DOS, Windows, and Macintosh, open does not work for
+     directories.  */
   if (access (XSTRING (absname)->data, 0) == 0)
     return Qt;
   return Qnil;
-#else /* not DOS_NT */
+#else /* not DOS_NT and not macintosh */
   flags = O_RDONLY;
 #if defined (S_ISFIFO) && defined (O_NONBLOCK)
   /* Opening a fifo without O_NONBLOCK can wait.
@@ -2989,7 +2990,7 @@
     return Qnil;
   emacs_close (desc);
   return Qt;
-#endif /* not DOS_NT */
+#endif /* not DOS_NT and not macintosh */
 }
 
 /* Having this before file-symlink-p mysteriously caused it to be forgotten