# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1278610258 -10800
# Node ID fdb79ffbe27ced36af0348426e3172c7d3aef614
# Parent  01e36ca71747c8dceaa11386e1e22c420ec0d70a
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.

diff -r 01e36ca71747 -r fdb79ffbe27c src/ChangeLog
--- 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)
diff -r 01e36ca71747 -r fdb79ffbe27c src/process.c
--- 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.