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 |