1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00

(Fcall_process): Be sure to give the current buffer

to decode_coding_c_string.  Update PT and PT_BYTE after the
insertion.
This commit is contained in:
Kenichi Handa 2002-05-07 04:50:09 +00:00
parent 31285a8f59
commit ea99bcc1c7

View file

@ -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)