mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 00:31:01 -08:00
Code Issues Projects Releases Wiki Activity

(Fcall_process): Handle post-read-conversion of coding system if any.

Browse source
This commit is contained in:
Kenichi Handa 2000-08-04 02:12:39 +00:00
parent e7046a1877
commit f778b157f4
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/callproc.c
View file

@ -727,6 +727,8 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
int carryover = 0;
int display_on_the_fly = !NILP (display) && INTERACTIVE;
struct coding_system saved_coding;
int pt_orig = PT, pt_byte_orig = PT_BYTE;
int inserted;
saved_coding = process_coding;
if (process_coding.composing != COMPOSITION_DISABLED)
@ -844,6 +846,13 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
coding_free_composition_data (&process_coding);
}
record_unwind_protect (save_excursion_restore, save_excursion_save ());
inserted = PT - pt_orig;
TEMP_SET_PT_BOTH (pt_orig, pt_byte_orig);
if (SYMBOLP (process_coding.post_read_conversion)
&& !NILP (Ffboundp (process_coding.post_read_conversion)))
call1 (process_coding.post_read_conversion, make_number (inserted));
Vlast_coding_system_used = process_coding.symbol;
/* If the caller required, let the buffer inherit the