comparison src/process.c @ 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 750db9f3e6d8
children 8cfee7d2955f
comparison
equal deleted inserted replaced
109174:01e36ca71747 109175:fdb79ffbe27c
7598 Lisp_Object Qeuid, Qegid, Qcomm, Qstate, Qppid, Qpgrp, Qsess, Qttname, Qtpgid; 7598 Lisp_Object Qeuid, Qegid, Qcomm, Qstate, Qppid, Qpgrp, Qsess, Qttname, Qtpgid;
7599 Lisp_Object Qminflt, Qmajflt, Qcminflt, Qcmajflt, Qutime, Qstime, Qcstime; 7599 Lisp_Object Qminflt, Qmajflt, Qcminflt, Qcmajflt, Qutime, Qstime, Qcstime;
7600 Lisp_Object Qcutime, Qpri, Qnice, Qthcount, Qstart, Qvsize, Qrss, Qargs; 7600 Lisp_Object Qcutime, Qpri, Qnice, Qthcount, Qstart, Qvsize, Qrss, Qargs;
7601 Lisp_Object Quser, Qgroup, Qetime, Qpcpu, Qpmem, Qtime, Qctime; 7601 Lisp_Object Quser, Qgroup, Qetime, Qpcpu, Qpmem, Qtime, Qctime;
7602 7602
7603 /* Non-zero if keyboard input is on hold, zero otherwise. */
7604 static int kbd_is_on_hold;
7605
7603 /* As described above, except assuming that there are no subprocesses: 7606 /* As described above, except assuming that there are no subprocesses:
7604 7607
7605 Wait for timeout to elapse and/or keyboard input to be available. 7608 Wait for timeout to elapse and/or keyboard input to be available.
7606 7609
7607 time_limit is: 7610 time_limit is:
7856 7859
7857 void 7860 void
7858 kill_buffer_processes (buffer) 7861 kill_buffer_processes (buffer)
7859 Lisp_Object buffer; 7862 Lisp_Object buffer;
7860 { 7863 {
7864 }
7865
7866
7867 /* Stop reading input from keyboard sources. */
7868
7869 void
7870 hold_keyboard_input (void)
7871 {
7872 kbd_is_on_hold = 1;
7873 }
7874
7875 /* Resume reading input from keyboard sources. */
7876
7877 void
7878 unhold_keyboard_input (void)
7879 {
7880 kbd_is_on_hold = 0;
7881 }
7882
7883 /* Return non-zero if keyboard input is on hold, zero otherwise. */
7884
7885 int
7886 kbd_on_hold_p (void)
7887 {
7888 return kbd_is_on_hold;
7861 } 7889 }
7862 7890
7863 DEFUN ("list-system-processes", Flist_system_processes, Slist_system_processes, 7891 DEFUN ("list-system-processes", Flist_system_processes, Slist_system_processes,
7864 0, 0, 0, 7892 0, 0, 0,
7865 doc: /* Return a list of numerical process IDs of all running processes. 7893 doc: /* Return a list of numerical process IDs of all running processes.