mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

* fileio.c (Ffile_writable_p): Pass XSTRING (foo)->data to

Browse Source 
ro_fsys, not XSTRING (foo).
This commit is contained in:
Jim Blandy 1993-05-24 15:22:47 +00:00
parent 9696f58be7
commit e7c7295c91
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/fileio.c
View File

@ -2112,7 +2112,7 @@ DEFUN ("file-writable-p", Ffile_writable_p, Sfile_writable_p, 1, 1, 0,
if (access (XSTRING (abspath)->data, 0) >= 0)
return ((access (XSTRING (abspath)->data, 2) >= 0
&& ! ro_fsys (XSTRING (abspath)))
&& ! ro_fsys ((char *) XSTRING (abspath)->data))
? Qt : Qnil);
dir = Ffile_name_directory (abspath);
#ifdef VMS
@ -2120,7 +2120,7 @@ DEFUN ("file-writable-p", Ffile_writable_p, Sfile_writable_p, 1, 1, 0,
dir = Fdirectory_file_name (dir);
#endif /* VMS */
return ((access (!NILP (dir) ? (char *) XSTRING (dir)->data : "", 2) >= 0
&& ! ro_fsys ((char *) XSTRING (dir)))
&& ! ro_fsys ((char *) XSTRING (dir)->data))
? Qt : Qnil);
}