From d0a57728216e9b91f6e72efff47922bfe20c82c9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 14 May 1994 22:23:38 +0000 Subject: [PATCH] (bind_polling_period): Never decrease polling_period. (echo): Don't echo motion events. --- src/keyboard.c | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/src/keyboard.c b/src/keyboard.c index 88c6b640889..a43f9f5d7f0 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -584,7 +584,13 @@ echo () immediate_echo = 1; for (i = 0; i < this_command_key_count; i++) - echo_char (XVECTOR (this_command_keys)->contents[i]); + { + Lisp_Object c; + c = XVECTOR (this_command_keys)->contents[i]; + if (! (EVENT_HAS_PARAMETERS (c) + && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_movement))) + echo_char (c); + } echo_dash (); } @@ -1309,12 +1315,21 @@ set_poll_suppress_count (count) #endif } +/* Bind polling_period to a value at least N. + But don't decrease it. */ + bind_polling_period (n) int n; { #ifdef POLL_FOR_INPUT + int new = polling_period; + + if (n > new) + new = n; + stop_polling (); - specbind (Qpolling_period, make_number (n)); + specbind (Qpolling_period, make_number (new)); + /* Start a new alarm with the new period. */ start_polling (); #endif } -- 2.39.5