Commit d72534ba authored by Karl Heuer's avatar Karl Heuer
Browse files

(read_process_output): If buffer changes, record that fact.

parent 026b8c1e
......@@ -2134,8 +2134,10 @@ read_process_output (proc, channel)
it up. */
int count = specpdl_ptr - specpdl;
Lisp_Object odeactivate;
Lisp_Object obuffer;
odeactivate = Vdeactivate_mark;
obuffer = Fcurrent_buffer ();
specbind (Qinhibit_quit, Qt);
call2 (outstream, proc, make_string (chars, nchars));
......@@ -2143,6 +2145,9 @@ read_process_output (proc, channel)
/* Handling the process output should not deactivate the mark. */
Vdeactivate_mark = odeactivate;
if (! EQ (Fcurrent_buffer (), obuffer))
record_asynch_buffer_change ();
#ifdef VMS
start_vms_process_read (vs);
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment