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 { |