From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 11 Jan 2000 13:11:14 +0000 (+0000)
Subject: (Fclear_this_command_keys): Clear recent_keys
X-Git-Tag: emacs-pretest-21.0.90~5394
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb0dde6c6209f004134543070bd658f3286f5a3b;p=emacs.git

(Fclear_this_command_keys): Clear recent_keys
vector, too.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 7066a56360c..8b4bbe8606a 100644
--- 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;
 }