From: Kenichi Handa <handa@m17n.org>
Date: Fri, 4 Aug 2000 02:12:39 +0000 (+0000)
Subject: (Fcall_process): Handle post-read-conversion of coding system if any.
X-Git-Tag: emacs-pretest-21.0.90~2503
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f778b157f43c349e17cb337a034fa725b5ff02ec;p=emacs.git

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

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