procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

2001-08-24 Andrew Choi <akochoi@cse.cuhk.edu.hk>

Browse source 
* fileio.c (Ffile_readable_p) [macintosh]: Call access instead of
	open to determine whether file is readable (as for DOS_NT).
This commit is contained in:
Andrew Choi 2001-08-24 07:09:01 +00:00
parent cf6ce50be6
commit fb4c6c961b
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/ChangeLog
View file

@ -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>

9
src/fileio.c
View file

@ -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