# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 738256967 0
# Node ID 3afba65e22fa8553d346ea35c9a67597b495c031
# Parent  ce9ea90b58481059a004649980e6150222f54a09
	* fileio.c (Ffile_writable_p): Pass XSTRING (foo)->data to
	ro_fsys, not XSTRING (foo).

diff -r ce9ea90b5848 -r 3afba65e22fa src/fileio.c
--- a/src/fileio.c	Mon May 24 15:04:07 1993 +0000
+++ b/src/fileio.c	Mon May 24 15:22:47 1993 +0000
@@ -2112,7 +2112,7 @@
 
   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 @@
     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);
 }