9732 |
} |
} |
9733 |
|
|
9734 |
DEFUN ("clear-this-command-keys", Fclear_this_command_keys, |
DEFUN ("clear-this-command-keys", Fclear_this_command_keys, |
9735 |
Sclear_this_command_keys, 0, 0, 0, |
Sclear_this_command_keys, 0, 1, 0, |
9736 |
doc: /* Clear out the vector that `this-command-keys' returns. |
doc: /* Clear out the vector that `this-command-keys' returns. |
9737 |
Also clear the record of the last 100 events. */) |
Also clear the record of the last 100 events, unless optional arg |
9738 |
() |
KEEP-RECORD is non-nil. */) |
9739 |
|
(keep_record) |
9740 |
|
Lisp_Object keep_record; |
9741 |
{ |
{ |
9742 |
int i; |
int i; |
9743 |
|
|
9744 |
this_command_key_count = 0; |
this_command_key_count = 0; |
9745 |
|
|
9746 |
for (i = 0; i < XVECTOR (recent_keys)->size; ++i) |
if (NILP (keep_record)) |
9747 |
XVECTOR (recent_keys)->contents[i] = Qnil; |
{ |
9748 |
total_keys = 0; |
for (i = 0; i < XVECTOR (recent_keys)->size; ++i) |
9749 |
recent_keys_index = 0; |
XVECTOR (recent_keys)->contents[i] = Qnil; |
9750 |
|
total_keys = 0; |
9751 |
|
recent_keys_index = 0; |
9752 |
|
} |
9753 |
return Qnil; |
return Qnil; |
9754 |
} |
} |
9755 |
|
|