Mercurial > emacs
changeset 109175:fdb79ffbe27c
Fix MS-DOS build broken by revno 100745.
process.c (kbd_is_on_hold, hold_keyboard_input)
(unhold_keyboard_input, kbd_on_hold_p) [!subprocesses]: Define.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Thu, 08 Jul 2010 20:30:58 +0300 |
| parents | 01e36ca71747 |
| children | 208ebac6e31e |
| files | src/ChangeLog src/process.c |
| diffstat | 2 files changed, 33 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Thu Jul 08 12:35:54 2010 +0200 +++ b/src/ChangeLog Thu Jul 08 20:30:58 2010 +0300 @@ -1,3 +1,8 @@ +2010-07-08 Eli Zaretskii <eliz@gnu.org> + + * process.c (kbd_is_on_hold, hold_keyboard_input) + (unhold_keyboard_input, kbd_on_hold_p) [!subprocesses]: Define. + 2010-07-08 Jan Djärv <jan.h.d@swipnet.se> * xmenu.c (set_frame_menubar, create_and_show_popup_menu)
--- a/src/process.c Thu Jul 08 12:35:54 2010 +0200 +++ b/src/process.c Thu Jul 08 20:30:58 2010 +0300 @@ -7600,6 +7600,9 @@ Lisp_Object Qcutime, Qpri, Qnice, Qthcount, Qstart, Qvsize, Qrss, Qargs; Lisp_Object Quser, Qgroup, Qetime, Qpcpu, Qpmem, Qtime, Qctime; +/* Non-zero if keyboard input is on hold, zero otherwise. */ +static int kbd_is_on_hold; + /* As described above, except assuming that there are no subprocesses: Wait for timeout to elapse and/or keyboard input to be available. @@ -7860,6 +7863,31 @@ { } + +/* Stop reading input from keyboard sources. */ + +void +hold_keyboard_input (void) +{ + kbd_is_on_hold = 1; +} + +/* Resume reading input from keyboard sources. */ + +void +unhold_keyboard_input (void) +{ + kbd_is_on_hold = 0; +} + +/* Return non-zero if keyboard input is on hold, zero otherwise. */ + +int +kbd_on_hold_p (void) +{ + return kbd_is_on_hold; +} + DEFUN ("list-system-processes", Flist_system_processes, Slist_system_processes, 0, 0, 0, doc: /* Return a list of numerical process IDs of all running processes.