(Fcall_process): Handle carryover correctly.

diff --git a/src/callproc.c b/src/callproc.c
index da3654a341140f2acb48bcfa09a8bf8f2fa77914..8c6df89ea7e38abdaa3f0a202ee994c58d7a1b91 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -797,13 +797,12 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
                
                TEMP_SET_PT_BOTH (PT + process_coding.produced_char,
                                  PT_BYTE + process_coding.produced);
-               nread -= process_coding.consumed;
-               carryover = nread;
+               carryover = process_coding.carryover_bytes;
                if (carryover > 0)
                  /* As CARRYOVER should not be that large, we had
                     better avoid overhead of bcopy.  */
-                 BCOPY_SHORT (bufptr + process_coding.consumed, bufptr,
-                              carryover);
+                 BCOPY_SHORT (process_coding.carryover, bufptr,
+                              process_coding.carryover_bytes);
              }
          }