Commit f778b157 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

parent e7046a18
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment