mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(Fclear_this_command_keys): Added optional arg

Browse Source 
KEEP-RECORD to avoid clearing lossage when we just want to clear
the current key sequence (kmacro needs this).
This commit is contained in:
Kim F. Storm 2002-08-19 14:58:29 +00:00
parent dec7e30288
commit ab1959fcba
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/keyboard.c
View File

@ -9732,19 +9732,24 @@ appears in the echo area and in the value of `this-command-keys'. */)
}
DEFUN ("clear-this-command-keys", Fclear_this_command_keys,
Sclear_this_command_keys, 0, 0, 0,
Sclear_this_command_keys, 0, 1, 0,
doc: /* Clear out the vector that `this-command-keys' returns.
Also clear the record of the last 100 events. */)
()
Also clear the record of the last 100 events, unless optional arg
KEEP-RECORD is non-nil. */)
(keep_record)
Lisp_Object keep_record;
{
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;
if (NILP (keep_record))
{
for (i = 0; i < XVECTOR (recent_keys)->size; ++i)
XVECTOR (recent_keys)->contents[i] = Qnil;
total_keys = 0;
recent_keys_index = 0;
}
return Qnil;
}