Mercurial > emacs
comparison src/process.c @ 13159:2af96ac471bc
(exec_sentinel, read_process_output):
Call record_asynch_buffer_change only if caller is reading kbd input.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 09 Oct 1995 00:31:24 +0000 |
| parents | 4db1f387e85f |
| children | b035c6e41457 |
comparison
equal
deleted
inserted
replaced
| 13158:02b3310fc081 | 13159:2af96ac471bc |
|---|---|
| 2391 because we might have changed minor modes or other things | 2391 because we might have changed minor modes or other things |
| 2392 that affect key bindings. */ | 2392 that affect key bindings. */ |
| 2393 if (! EQ (Fcurrent_buffer (), obuffer) | 2393 if (! EQ (Fcurrent_buffer (), obuffer) |
| 2394 || ! EQ (current_buffer->keymap, okeymap)) | 2394 || ! EQ (current_buffer->keymap, okeymap)) |
| 2395 #endif | 2395 #endif |
| 2396 record_asynch_buffer_change (); | 2396 /* But do it only if the caller is actually going to read events. |
| 2397 Otherwise there's no need to make him wake up, and it could | |
| 2398 cause trouble (for example it would make Fsit_for return). */ | |
| 2399 if (waiting_for_user_input_p == -1) | |
| 2400 record_asynch_buffer_change (); | |
| 2397 | 2401 |
| 2398 #ifdef VMS | 2402 #ifdef VMS |
| 2399 start_vms_process_read (vs); | 2403 start_vms_process_read (vs); |
| 2400 #endif | 2404 #endif |
| 2401 unbind_to (count, Qnil); | 2405 unbind_to (count, Qnil); |
| 3389 Vdeactivate_mark = odeactivate; | 3393 Vdeactivate_mark = odeactivate; |
| 3390 #if 0 | 3394 #if 0 |
| 3391 if (! EQ (Fcurrent_buffer (), obuffer) | 3395 if (! EQ (Fcurrent_buffer (), obuffer) |
| 3392 || ! EQ (current_buffer->keymap, okeymap)) | 3396 || ! EQ (current_buffer->keymap, okeymap)) |
| 3393 #endif | 3397 #endif |
| 3394 record_asynch_buffer_change (); | 3398 /* But do it only if the caller is actually going to read events. |
| 3399 Otherwise there's no need to make him wake up, and it could | |
| 3400 cause trouble (for example it would make Fsit_for return). */ | |
| 3401 if (waiting_for_user_input_p == -1) | |
| 3402 record_asynch_buffer_change (); | |
| 3395 | 3403 |
| 3396 unbind_to (count, Qnil); | 3404 unbind_to (count, Qnil); |
| 3397 } | 3405 } |
| 3398 | 3406 |
| 3399 /* Report all recent events of a change in process status | 3407 /* Report all recent events of a change in process status |