From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 17 Apr 1998 07:08:02 +0000 (+0000)
Subject: (Fcall_process_region): Unbind coding-system-for-write
X-Git-Tag: emacs-20.3~1449
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=168afdaa0e33b8dcca026f3cffe6bb1e2f7f50bd;p=emacs.git

(Fcall_process_region): Unbind coding-system-for-write
after calling Fwrite_region.
---

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.  */