From d430ee71cc2e379450a0a58382a98651f0f2e0d0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 19 Aug 1994 07:23:05 +0000 Subject: [PATCH] (wait_reading_process_input): Clear waiting_for_user_input_p before returning. --- src/process.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/process.c b/src/process.c index 620ef552a0..5f2cfd0a07 100644 --- a/src/process.c +++ b/src/process.c @@ -1795,7 +1795,10 @@ Return non-nil iff we received any output before the timeout expired.") 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 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display) } /* 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. */ -- 2.20.1