# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 765784692 0
# Node ID b1cde622fa6529fa54ebd2fd1c57f993e6cb9328
# Parent  135dd9df78938c193f2f9af2c8372ab6372cb817
(read_process_output): If buffer changes, record that fact.

diff -r 135dd9df7893 -r b1cde622fa65 src/process.c
--- a/src/process.c	Fri Apr 08 05:57:55 1994 +0000
+++ b/src/process.c	Fri Apr 08 05:58:12 1994 +0000
@@ -2134,8 +2134,10 @@
 	 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 @@
       /* 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