# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768954218 0
# Node ID 30ce667c80264b081ada170a6fdd637538d98b4f
# Parent  7196bd4f57d4c465962ff465e623b59de835a31e
(bind_polling_period): Never decrease polling_period.

(echo): Don't echo motion events.

diff -r 7196bd4f57d4 -r 30ce667c8026 src/keyboard.c
--- a/src/keyboard.c	Sat May 14 22:17:13 1994 +0000
+++ b/src/keyboard.c	Sat May 14 22:23:38 1994 +0000
@@ -584,7 +584,13 @@
       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 @@
 #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
 }