(bind_polling_period): Never decrease polling_period.

(echo): Don't echo motion events.

1 files 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
 }