# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 778221033 0
# Node ID 627a2ed242c0496a6372002c86141c26b54316af
# Parent  7615ef8778deaf53fcc8fc74fab9a8b2f3519aa0
(Ffile_accessible_directory_p): No need for gcpro.

(Fwrite_region): unbind_to should take two args.

diff -r 7615ef8778de -r 627a2ed242c0 src/fileio.c
--- a/src/fileio.c	Tue Aug 30 00:47:36 1994 +0000
+++ b/src/fileio.c	Tue Aug 30 04:30:33 1994 +0000
@@ -2383,7 +2383,6 @@
 {
   Lisp_Object handler;
   int tem;
-  struct gcpro gcpro1;
 
   /* If the file name has special constructs in it,
      call the corresponding file handler.  */
@@ -2393,10 +2392,8 @@
 
   /* Need to gcpro in case the first function call has a handler that
      causes filename to be relocated.  */
-  GCPRO1 (filename);
   tem = (NILP (Ffile_directory_p (filename))
 	 || NILP (Ffile_executable_p (filename)));
-  UNGCPRO;
   return tem ? Qnil : Qt;
 }
 
@@ -3271,9 +3268,7 @@
   /* Discard the unwind protect for close_file_unwind.  */
   specpdl_ptr = specpdl + count1;
   /* Restore the original current buffer.  */
-  GCPRO1 (visit_file);
-  unbind_to (count);
-  UNGCPRO;
+  visit_file = unbind_to (count, visit_file);
 
 #ifdef CLASH_DETECTION
   if (!auto_saving)