From 168afdaa0e33b8dcca026f3cffe6bb1e2f7f50bd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 17 Apr 1998 07:08:02 +0000 Subject: [PATCH] (Fcall_process_region): Unbind coding-system-for-write after calling Fwrite_region. --- src/callproc.c | 10 ++++++++-- 1 file 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. */ -- 2.39.2