Mercurial > hg > xemacs-beta

comparison src/fileio.c @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 8efd647ea9ca
children c5d627a313b1
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
2189 if (!NILP (handler)) 2189 if (!NILP (handler))
2190 RETURN_UNGCPRO (call2 (handler, Qfile_readable_p, abspath)); 2190 RETURN_UNGCPRO (call2 (handler, Qfile_readable_p, abspath));
2191 2191
2192 #ifdef WINDOWSNT 2192 #ifdef WINDOWSNT
2193 /* Under MS-DOS and Windows, open does not work for directories. */ 2193 /* Under MS-DOS and Windows, open does not work for directories. */
2194 UNGCPRO;
2194 if (access (XSTRING_DATA (abspath), 0) == 0) 2195 if (access (XSTRING_DATA (abspath), 0) == 0)
2195 return Qt; 2196 return Qt;
2196 return Qnil; 2197 else
2198 return Qnil;
2197 #else /* not WINDOWSNT */ 2199 #else /* not WINDOWSNT */
2198 { 2200 {
2199 int desc = interruptible_open ((char *) XSTRING_DATA (abspath), O_RDONLY | OPEN_BINARY, 0); 2201 int desc = interruptible_open ((char *) XSTRING_DATA (abspath), O_RDONLY | OPEN_BINARY, 0);
2200 UNGCPRO; 2202 UNGCPRO;
2201 if (desc < 0) 2203 if (desc < 0)