changeset 21626:ad899130056e

(Fcall_process_region): Unbind coding-system-for-write after calling Fwrite_region.
author Richard M. Stallman <rms@gnu.org>
date Fri, 17 Apr 1998 07:08:02 +0000
parents 8ea12f8e8a04
children 0ddbc21a8468
files src/callproc.c
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/callproc.c	Fri Apr 17 05:27:19 1998 +0000
+++ b/src/callproc.c	Fri Apr 17 07:08:02 1998 +0000
@@ -840,8 +840,14 @@
 	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.  */