Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(syms_of_keyboard): Set up Qpolling_period.

Browse source 
(bind_polling_period): New function.
This commit is contained in:
Richard M. Stallman 1994-05-13 08:32:16 +00:00
parent 44ade2e949
commit f4eef8b490
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/keyboard.c
View file

@ -419,6 +419,8 @@ Lisp_Object recursive_edit_unwind (), command_loop ();
Lisp_Object Fthis_command_keys ();
Lisp_Object Qextended_command_history;
Lisp_Object Qpolling_period;
/* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt
happens. */
EMACS_TIME *input_available_clear_time;
@ -1306,6 +1308,16 @@ set_poll_suppress_count (count)
poll_suppress_count = count;
#endif
}
bind_polling_period (n)
int n;
{
#ifdef POLL_FOR_INPUT
stop_polling ();
specbind (Qpolling_period, make_number (n));
start_polling ();
#endif
}
/* Applying the control modifier to CHARACTER. */
int
@ -5834,6 +5846,9 @@ syms_of_keyboard ()
Qactivate_menubar_hook = intern ("activate-menubar-hook");
staticpro (&Qactivate_menubar_hook);
Qpolling_period = intern ("polling-period");
staticpro (&Qpolling_period);
{
struct event_head *p;