From d568829b7157fe5fe62d242f6f3b824ff085e0e0 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 8 Jul 2010 20:30:58 +0300 Subject: [PATCH] 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. --- src/ChangeLog | 5 +++++ src/process.c | 28 ++++++++++++++++++++++++++++ 2 files changed, 33 insertions(+) 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. -- 2.39.2