# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1020747009 0
# Node ID 47b395dd6f2c3e5814b125c685736e61bea73f84
# Parent  4e78ee207f403aac3fb79234384c766a65c714f7
(Fcall_process): Be sure to give the current buffer
to decode_coding_c_string.  Update PT and PT_BYTE after the
insertion.

diff -r 4e78ee207f40 -r 47b395dd6f2c src/callproc.c
--- a/src/callproc.c	Tue May 07 04:49:50 2002 +0000
+++ b/src/callproc.c	Tue May 07 04:50:09 2002 +0000
@@ -770,8 +770,11 @@
 	      insert_1_both (bufptr, nread, nread, 0, 1, 0);
 	    else
 	      {			/* We have to decode the input.  */
+		Lisp_Object buf;
+
+		XSETBUFFER (buf, current_buffer);
 		decode_coding_c_string (&process_coding, bufptr, nread,
-					buffer);
+					buf);
 		if (display_on_the_fly
 		    && CODING_REQUIRE_DETECTION (&saved_coding)
 		    && ! CODING_REQUIRE_DETECTION (&process_coding))
@@ -793,6 +796,8 @@
 		    continue;
 		  }
 		
+		TEMP_SET_PT_BOTH (PT + process_coding.produced_char,
+				  PT_BYTE + process_coding.produced);
 		nread -= process_coding.consumed;
 		carryover = nread;
 		if (carryover > 0)