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 d81c7e0162961e76ad921f46c6d635b0350ab682..137d723dfae9fed966195781798198c9a716a92d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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 --git a/src/process.c b/src/process.c
index 67052cac72057baf4b5cf09ee195dbcb8a322d13..789f6df2df2e5665116e35962309581c51047095 100644 (file)
--- 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)
 {
 }
 
+\f
+/* 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.