3899 |
break; |
break; |
3900 |
#endif |
#endif |
3901 |
{ |
{ |
3902 |
Lisp_Object minus_one; |
wait_reading_process_output (0, 0, -1, 1, Qnil, NULL, 0); |
|
|
|
|
XSETINT (minus_one, -1); |
|
|
wait_reading_process_input (0, 0, minus_one, 1); |
|
3903 |
|
|
3904 |
if (!interrupt_input && kbd_fetch_ptr == kbd_store_ptr) |
if (!interrupt_input && kbd_fetch_ptr == kbd_store_ptr) |
3905 |
/* Pass 1 for EXPECT since we just waited to have input. */ |
/* Pass 1 for EXPECT since we just waited to have input. */ |
9917 |
} |
} |
9918 |
|
|
9919 |
/* Return nonzero if there are pending requeued events. |
/* Return nonzero if there are pending requeued events. |
9920 |
This isn't used yet. The hope is to make wait_reading_process_input |
This isn't used yet. The hope is to make wait_reading_process_output |
9921 |
call it, and return if it runs Lisp code that unreads something. |
call it, and return if it runs Lisp code that unreads something. |
9922 |
The problem is, kbd_buffer_get_event needs to be fixed to know what |
The problem is, kbd_buffer_get_event needs to be fixed to know what |
9923 |
to do in that case. It isn't trivial. */ |
to do in that case. It isn't trivial. */ |