comparison src/fileio.c @ 13902:31e37f3d8ccd

(Ffile_readable_p) [MSDOS]: Use access rather than open.

13901:c9243845a191

     call the corresponding file handler.  */
  handler = Ffind_file_name_handler (abspath, Qfile_readable_p);
  if (!NILP (handler))
    return call2 (handler, Qfile_readable_p, abspath);

  desc = open (XSTRING (abspath)->data, O_RDONLY);
  if (desc < 0)
    return Qnil;
  close (desc);
  return Qt;
}

/* Having this before file-symlink-p mysteriously caused it to be forgotten
   on the RT/PC.  */
DEFUN ("file-writable-p", Ffile_writable_p, Sfile_writable_p, 1, 1, 0,

13902:31e37f3d8ccd

     call the corresponding file handler.  */
  handler = Ffind_file_name_handler (abspath, Qfile_readable_p);
  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
   on the RT/PC.  */
DEFUN ("file-writable-p", Ffile_writable_p, Sfile_writable_p, 1, 1, 0,