# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 813198684 0
# Node ID 2af96ac471bc00636c83a0a85e941ba21cda9dab
# Parent  02b3310fc0818e1760682bfcc6ab17044874608a
(exec_sentinel, read_process_output):
Call record_asynch_buffer_change only if caller is reading kbd input.

diff -r 02b3310fc081 -r 2af96ac471bc src/process.c
--- a/src/process.c	Sun Oct 08 19:59:42 1995 +0000
+++ b/src/process.c	Mon Oct 09 00:31:24 1995 +0000
@@ -2393,7 +2393,11 @@
       if (! EQ (Fcurrent_buffer (), obuffer)
 	  || ! EQ (current_buffer->keymap, okeymap))
 #endif
-	record_asynch_buffer_change ();
+	/* But do it only if the caller is actually going to read events.
+	   Otherwise there's no need to make him wake up, and it could
+	   cause trouble (for example it would make Fsit_for return).  */
+	if (waiting_for_user_input_p == -1)
+	  record_asynch_buffer_change ();
 
 #ifdef VMS
       start_vms_process_read (vs);
@@ -3391,7 +3395,11 @@
   if (! EQ (Fcurrent_buffer (), obuffer)
       || ! EQ (current_buffer->keymap, okeymap))
 #endif
-    record_asynch_buffer_change ();
+    /* But do it only if the caller is actually going to read events.
+       Otherwise there's no need to make him wake up, and it could
+       cause trouble (for example it would make Fsit_for return).  */
+    if (waiting_for_user_input_p == -1)
+      record_asynch_buffer_change ();
 
   unbind_to (count, Qnil);
 }