Mercurial > emacs
comparison src/fileio.c @ 3017:3afba65e22fa
* fileio.c (Ffile_writable_p): Pass XSTRING (foo)->data to
ro_fsys, not XSTRING (foo).
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 24 May 1993 15:22:47 +0000 |
parents | e94a593c3952 |
children | 371058345c42 |
comparison
equal
deleted
inserted
replaced
3016:ce9ea90b5848 | 3017:3afba65e22fa |
---|---|
2110 if (!NILP (handler)) | 2110 if (!NILP (handler)) |
2111 return call2 (handler, Qfile_writable_p, abspath); | 2111 return call2 (handler, Qfile_writable_p, abspath); |
2112 | 2112 |
2113 if (access (XSTRING (abspath)->data, 0) >= 0) | 2113 if (access (XSTRING (abspath)->data, 0) >= 0) |
2114 return ((access (XSTRING (abspath)->data, 2) >= 0 | 2114 return ((access (XSTRING (abspath)->data, 2) >= 0 |
2115 && ! ro_fsys (XSTRING (abspath))) | 2115 && ! ro_fsys ((char *) XSTRING (abspath)->data)) |
2116 ? Qt : Qnil); | 2116 ? Qt : Qnil); |
2117 dir = Ffile_name_directory (abspath); | 2117 dir = Ffile_name_directory (abspath); |
2118 #ifdef VMS | 2118 #ifdef VMS |
2119 if (!NILP (dir)) | 2119 if (!NILP (dir)) |
2120 dir = Fdirectory_file_name (dir); | 2120 dir = Fdirectory_file_name (dir); |
2121 #endif /* VMS */ | 2121 #endif /* VMS */ |
2122 return ((access (!NILP (dir) ? (char *) XSTRING (dir)->data : "", 2) >= 0 | 2122 return ((access (!NILP (dir) ? (char *) XSTRING (dir)->data : "", 2) >= 0 |
2123 && ! ro_fsys ((char *) XSTRING (dir))) | 2123 && ! ro_fsys ((char *) XSTRING (dir)->data)) |
2124 ? Qt : Qnil); | 2124 ? Qt : Qnil); |
2125 } | 2125 } |
2126 | 2126 |
2127 DEFUN ("file-directory-p", Ffile_directory_p, Sfile_directory_p, 1, 1, 0, | 2127 DEFUN ("file-directory-p", Ffile_directory_p, Sfile_directory_p, 1, 1, 0, |
2128 "Return t if file FILENAME is the name of a directory as a file.\n\ | 2128 "Return t if file FILENAME is the name of a directory as a file.\n\ |