Mercurial > emacs
diff src/callproc.c @ 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 | 395ad34c576a |
children | 6e12eeda6913 |
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. */