mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(Fcall_process_region): Unbind coding-system-for-write

Browse Source 
after calling Fwrite_region.
This commit is contained in:
Richard M. Stallman 1998-04-17 07:08:02 +00:00
parent 19dc6e3f9d
commit 168afdaa0e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/callproc.c
View File

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