(Fcall_process): Be sure to give the current buffer

to decode_coding_c_string.  Update PT and PT_BYTE after the
insertion.

1 files changed, 6 insertions, 1 deletions

diff --git a/src/callproc.c b/src/callproc.c
index bb3df43d433..9fa97d862c1 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -770,8 +770,11 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
               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 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
                     continue;
                   }
                 
+                TEMP_SET_PT_BOTH (PT + process_coding.produced_char,
+                                  PT_BYTE + process_coding.produced);
                 nread -= process_coding.consumed;
                 carryover = nread;
                 if (carryover > 0)