(Fclear_this_command_keys): Clear recent_keys

vector, too.

diff --git a/src/keyboard.c b/src/keyboard.c
index 7066a56360ca2ba3543dec6cc554c445733bf4a0..8b4bbe8606a39283974741ed8523be6e3805997d 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -8962,7 +8962,14 @@ DEFUN ("clear-this-command-keys", Fclear_this_command_keys,
   "Clear out the vector that `this-command-keys' returns.")
   ()
 {
+  int i;
+  
   this_command_key_count = 0;
+
+  for (i = 0; i < XVECTOR (recent_keys)->size; ++i)
+    XVECTOR (recent_keys)->contents[i] = Qnil;
+  total_keys = 0;
+  recent_keys_index = 0;
   return Qnil;
 }