Mercurial > emacs
changeset 7487:a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
(bind_polling_period): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 13 May 1994 08:32:16 +0000 |
| parents | cfe4840ffde9 |
| children | 9c2205991ff5 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Fri May 13 08:31:05 1994 +0000 +++ b/src/keyboard.c Fri May 13 08:32:16 1994 +0000 @@ -419,6 +419,8 @@ 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 @@ 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 @@ Qactivate_menubar_hook = intern ("activate-menubar-hook"); staticpro (&Qactivate_menubar_hook); + Qpolling_period = intern ("polling-period"); + staticpro (&Qpolling_period); + { struct event_head *p;