Mercurial > emacs

changeset 7502:30ce667c8026

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bind_polling_period): Never decrease polling_period. (echo): Don't echo motion events.
author Richard M. Stallman <rms@gnu.org>
date Sat, 14 May 1994 22:23:38 +0000
parents 7196bd4f57d4
children 166f360f788e
files src/keyboard.c
diffstat 1 files changed, 17 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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
 }