# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 777280985 0
# Node ID dd3dfde8f9730fd900a2404bfa881fa69c8a56e2
# Parent  3a9e9d3df59055a0e11c6854e27cd70f86246df1
(wait_reading_process_input):
Clear waiting_for_user_input_p before returning.

diff -r 3a9e9d3df590 -r dd3dfde8f973 src/process.c
--- a/src/process.c	Fri Aug 19 07:06:30 1994 +0000
+++ b/src/process.c	Fri Aug 19 07:23:05 1994 +0000
@@ -1795,7 +1795,10 @@
    function Fwaiting_for_user_input_p below) whether emacs was waiting
    for user-input when that process-filter was called.
    waiting_for_input cannot be used as that is by definition 0 when
-   lisp code is being evalled */
+   lisp code is being evalled.
+   This is also used in record_asynch_buffer_change.
+   For that purpose, this must be 0
+   when not inside wait_reading_process_input.  */
 static int waiting_for_user_input_p;
 
 /* Read and dispose of subprocess output while waiting for timeout to
@@ -2159,6 +2162,8 @@
 	}			/* end for each file descriptor */
     }				/* end while exit conditions not met */
 
+  waiting_for_user_input_p = 0;
+
   /* If calling from keyboard input, do not quit
      since we want to return C-g as an input character.
      Otherwise, do pending quit if requested.  */