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.