diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-17 07:08:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-17 07:08:02 +0000 |
| commit | 168afdaa0e33b8dcca026f3cffe6bb1e2f7f50bd (patch) | |
| tree | 68d8e2c37a26eb5cb659ca07bff5aaf9fe019d65 /src/callproc.c | |
| parent | 19dc6e3f9d5f1f8bbee342e755185dfddc586344 (diff) | |
| download | emacs-168afdaa0e33b8dcca026f3cffe6bb1e2f7f50bd.tar.gz | |
(Fcall_process_region): Unbind coding-system-for-write
after calling Fwrite_region.
Diffstat (limited to 'src/callproc.c')
| -rw-r--r-- | src/callproc.c | 10 |
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. */ |