Commit 168afdaa authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fcall_process_region): Unbind coding-system-for-write

after calling Fwrite_region.
parent 19dc6e3f
......@@ -840,8 +840,14 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
val = Qnil;
}
specbind (intern ("coding-system-for-write"), val);
Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil);
{
int count1 = specpdl_ptr - specpdl;
specbind (intern ("coding-system-for-write"), val);
Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil);
unbind_to (count1, Qnil);
}
/* Note that Fcall_process takes care of binding
coding-system-for-read. */
......
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