From: Eli Zaretskii Date: Thu, 8 Jul 2010 17:30:58 +0000 (+0300) Subject: Fix MS-DOS build broken by 2010-07-07T17:39:49Z!jan.h.d@swipnet.se. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~51^2~80^2~5 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d568829b7157fe5fe62d242f6f3b824ff085e0e0;p=emacs.git Fix MS-DOS build broken by 2010-07-07T17:39:49Z!jan.h.d@swipnet.se. process.c (kbd_is_on_hold, hold_keyboard_input) (unhold_keyboard_input, kbd_on_hold_p) [!subprocesses]: Define. --- diff --git a/src/ChangeLog b/src/ChangeLog index d81c7e01629..137d723dfae 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2010-07-08 Eli Zaretskii + + * process.c (kbd_is_on_hold, hold_keyboard_input) + (unhold_keyboard_input, kbd_on_hold_p) [!subprocesses]: Define. + 2010-07-08 Jan Djärv * xmenu.c (set_frame_menubar, create_and_show_popup_menu) diff --git a/src/process.c b/src/process.c index 67052cac720..789f6df2df2 100644 --- a/src/process.c +++ b/src/process.c @@ -7600,6 +7600,9 @@ Lisp_Object Qminflt, Qmajflt, Qcminflt, Qcmajflt, Qutime, Qstime, Qcstime; 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 @@ kill_buffer_processes (buffer) { } + +/* 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.