From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 30 Aug 1994 04:30:33 +0000 (+0000)
Subject: (Ffile_accessible_directory_p): No need for gcpro.
X-Git-Tag: emacs-19.34~7192
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98295b48d691d9d88ce850553752fd54e1cfbebf;p=emacs.git

(Ffile_accessible_directory_p): No need for gcpro.

(Fwrite_region): unbind_to should take two args.
---

diff --git a/src/fileio.c b/src/fileio.c
index e768d48c6d2..4a1fe76bdd1 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2383,7 +2383,6 @@ searchable directory.")
 {
   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 @@ searchable directory.")
 
   /* 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 @@ to the file, instead of any buffer contents, and END is ignored.")
   /* 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)