Commit 98295b48 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Ffile_accessible_directory_p): No need for gcpro.

(Fwrite_region): unbind_to should take two args.
parent 8fdae34a
...@@ -2383,7 +2383,6 @@ searchable directory.") ...@@ -2383,7 +2383,6 @@ searchable directory.")
{ {
Lisp_Object handler; Lisp_Object handler;
int tem; int tem;
struct gcpro gcpro1;
/* If the file name has special constructs in it, /* If the file name has special constructs in it,
call the corresponding file handler. */ call the corresponding file handler. */
...@@ -2393,10 +2392,8 @@ searchable directory.") ...@@ -2393,10 +2392,8 @@ searchable directory.")
/* Need to gcpro in case the first function call has a handler that /* Need to gcpro in case the first function call has a handler that
causes filename to be relocated. */ causes filename to be relocated. */
GCPRO1 (filename);
tem = (NILP (Ffile_directory_p (filename)) tem = (NILP (Ffile_directory_p (filename))
|| NILP (Ffile_executable_p (filename))); || NILP (Ffile_executable_p (filename)));
UNGCPRO;
return tem ? Qnil : Qt; return tem ? Qnil : Qt;
} }
...@@ -3271,9 +3268,7 @@ to the file, instead of any buffer contents, and END is ignored.") ...@@ -3271,9 +3268,7 @@ to the file, instead of any buffer contents, and END is ignored.")
/* Discard the unwind protect for close_file_unwind. */ /* Discard the unwind protect for close_file_unwind. */
specpdl_ptr = specpdl + count1; specpdl_ptr = specpdl + count1;
/* Restore the original current buffer. */ /* Restore the original current buffer. */
GCPRO1 (visit_file); visit_file = unbind_to (count, visit_file);
unbind_to (count);
UNGCPRO;
#ifdef CLASH_DETECTION #ifdef CLASH_DETECTION
if (!auto_saving) if (!auto_saving)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment