Commit f4eef8b4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(syms_of_keyboard): Set up Qpolling_period.

(bind_polling_period): New function.
parent 44ade2e9
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment