comparison src/process.c @ 53659:291acfb4bf40

(wait_reading_process_input) [SYNC_INPUT]: Check interrupt_input_pending.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 21 Jan 2004 05:27:58 +0000
parents 46f44b9f4e04
children e069e543fd28 82c3b4da43ca
comparison
equal deleted inserted replaced
53658:c6460069583e 53659:291acfb4bf40
4078 /* If calling from keyboard input, do not quit 4078 /* If calling from keyboard input, do not quit
4079 since we want to return C-g as an input character. 4079 since we want to return C-g as an input character.
4080 Otherwise, do pending quit if requested. */ 4080 Otherwise, do pending quit if requested. */
4081 if (XINT (read_kbd) >= 0) 4081 if (XINT (read_kbd) >= 0)
4082 QUIT; 4082 QUIT;
4083 #ifdef SYNC_INPUT
4084 else if (interrupt_input_pending)
4085 handle_async_input ();
4086 #endif
4083 4087
4084 /* Exit now if the cell we're waiting for became non-nil. */ 4088 /* Exit now if the cell we're waiting for became non-nil. */
4085 if (! NILP (wait_for_cell) && ! NILP (XCAR (wait_for_cell))) 4089 if (! NILP (wait_for_cell) && ! NILP (XCAR (wait_for_cell)))
4086 break; 4090 break;
4087 4091