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

1 files changed, 5 insertions, 0 deletions

diff --git a/src/process.c b/src/process.c
index 67882d5abea..d81b7c9fbab 100644
--- a/src/process.c
+++ b/src/process.c
@@ -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);
 #endif