From f778b157f43c349e17cb337a034fa725b5ff02ec Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 4 Aug 2000 02:12:39 +0000 Subject: [PATCH] (Fcall_process): Handle post-read-conversion of coding system if any. --- src/callproc.c | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/callproc.c b/src/callproc.c index a79816b2f38..396629a0861 100644 --- a/src/callproc.c +++ b/src/callproc.c @@ -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 -- 2.39.2