Mercurial > emacs
changeset 23439:72d75218d971
(Fclear_this_command_keys): New function.
(syms_of_keyboard): defsubr it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 13 Oct 1998 03:46:13 +0000 |
| parents | 2b9b91ac328a |
| children | 21dd0dd62240 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Tue Oct 13 03:45:04 1998 +0000 +++ b/src/keyboard.c Tue Oct 13 03:46:13 1998 +0000 @@ -8243,6 +8243,15 @@ return Qnil; } +DEFUN ("clear-this-command-keys", Fclear_this_command_keys, + Sclear_this_command_keys, 0, 0, 0, + "Clear out the vector that `this-command-keys' returns.") + () +{ + this_command_key_count = 0; + return Qnil; +} + DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0, "Return the current depth in recursive edits.") () @@ -9062,6 +9071,7 @@ defsubr (&Sthis_single_command_keys); defsubr (&Sthis_single_command_raw_keys); defsubr (&Sreset_this_command_lengths); + defsubr (&Sclear_this_command_keys); defsubr (&Ssuspend_emacs); defsubr (&Sabort_recursive_edit); defsubr (&Sexit_recursive_edit);