Mercurial > emacs
comparison src/process.h @ 109164:a7b09b567d58
If kbd_buffer is becoming full, stop reading until it drains (Bug#6571).
* keyboard.c (input_available_signal): Declare.
(kbd_buffer_nr_stored): New function.
(kbd_buffer_store_event_hold): If kbd_buffer_nr_stored returns
more than KBD_BUFFER_SIZE/2, stop reding input (Bug#6571).
(kbd_buffer_get_event): If input is suspended and kbd_buffer_nr_stored
returns less than KBD_BUFFER_SIZE/4, resume reding input (Bug#6571).
(tty_read_avail_input): If input is on hold, return.
Don't read more that free slots in kbd_buffer (Bug#6571).
* process.h (hold_keyboard_input, unhold_keyboard_input)
(kbd_on_hold_p): Declare.
* process.c (kbd_is_on_hold): New variable.
(hold_keyboard_input, unhold_keyboard_input, kbd_on_hold_p): New
functions.
(wait_reading_process_output): If kbd_on_hold_p returns non-zero,
select on empty input mask.
(init_process): Initialize kbd_is_on_hold to 0.
author | Jan D <jan.h.d@swipnet.se> |
---|---|
date | Wed, 07 Jul 2010 19:39:49 +0200 |
parents | 1d1d5d9bd884 |
children | 7b41c068528a 376148b31b5e |
comparison
equal
deleted
inserted
replaced
109163:5955303b67f5 | 109164:a7b09b567d58 |
---|---|
168 extern Lisp_Object Qtime, Qctime; | 168 extern Lisp_Object Qtime, Qctime; |
169 | 169 |
170 extern Lisp_Object list_system_processes (void); | 170 extern Lisp_Object list_system_processes (void); |
171 extern Lisp_Object system_process_attributes (Lisp_Object); | 171 extern Lisp_Object system_process_attributes (Lisp_Object); |
172 | 172 |
173 extern void hold_keyboard_input (void); | |
174 extern void unhold_keyboard_input (void); | |
175 extern int kbd_on_hold_p (void); | |
176 | |
173 /* arch-tag: dffedfc4-d7bc-4b58-a26f-c16155449c72 | 177 /* arch-tag: dffedfc4-d7bc-4b58-a26f-c16155449c72 |
174 (do not change this comment) */ | 178 (do not change this comment) */ |