mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki 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
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. */