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

after calling Fwrite_region.

1 files changed, 8 insertions, 2 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 0c9ce9a3a1c..a09649c639a 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -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.  */