Commit fb4c6c96 authored by Andrew Choi's avatar Andrew Choi
Browse files

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).
parent cf6ce50b
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>
......
......@@ -2967,12 +2967,13 @@ See also `file-exists-p' and `file-attributes'.")
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 @@ See also `file-exists-p' and `file-attributes'.")
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment