Mercurial > emacs
comparison src/keyboard.c @ 8718:44a433fa6e8f
(record_asynch_buffer_change): Don't test
Fwaiting_for_user_input_p if no subprocesses.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 08 Sep 1994 19:14:12 +0000 |
parents | 6d1d308ff12d |
children | 592bbf02e29d |
comparison
equal
deleted
inserted
replaced
8717:e56d09b95778 | 8718:44a433fa6e8f |
---|---|
3445 Lisp_Object tem; | 3445 Lisp_Object tem; |
3446 | 3446 |
3447 event.kind = buffer_switch_event; | 3447 event.kind = buffer_switch_event; |
3448 event.frame_or_window = Qnil; | 3448 event.frame_or_window = Qnil; |
3449 | 3449 |
3450 #ifdef subprocesses | |
3450 /* We don't need a buffer-switch event unless Emacs is waiting for input. | 3451 /* We don't need a buffer-switch event unless Emacs is waiting for input. |
3451 The purpose of the event is to make read_key_sequence look up the | 3452 The purpose of the event is to make read_key_sequence look up the |
3452 keymaps again. If we aren't in read_key_sequence, we don't need one, | 3453 keymaps again. If we aren't in read_key_sequence, we don't need one, |
3453 and the event could cause trouble by messing up (input-pending-p). */ | 3454 and the event could cause trouble by messing up (input-pending-p). */ |
3454 tem = Fwaiting_for_user_input_p (); | 3455 tem = Fwaiting_for_user_input_p (); |
3455 if (NILP (tem)) | 3456 if (NILP (tem)) |
3456 return; | 3457 return; |
3458 #else | |
3459 /* We never need these events if we have no asynchronous subprocesses. */ | |
3460 return; | |
3461 #endif | |
3457 | 3462 |
3458 /* Make sure no interrupt happens while storing the event. */ | 3463 /* Make sure no interrupt happens while storing the event. */ |
3459 #ifdef SIGIO | 3464 #ifdef SIGIO |
3460 if (interrupt_input) | 3465 if (interrupt_input) |
3461 { | 3466 { |