Mercurial > emacs
comparison src/keyboard.c @ 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 | 13e4ce88374d |
children | bab640501294 |
comparison
equal
deleted
inserted
replaced
23438:2b9b91ac328a | 23439:72d75218d971 |
---|---|
8241 before_command_key_count_1 = before_command_key_count; | 8241 before_command_key_count_1 = before_command_key_count; |
8242 before_command_echo_length_1 = before_command_echo_length; | 8242 before_command_echo_length_1 = before_command_echo_length; |
8243 return Qnil; | 8243 return Qnil; |
8244 } | 8244 } |
8245 | 8245 |
8246 DEFUN ("clear-this-command-keys", Fclear_this_command_keys, | |
8247 Sclear_this_command_keys, 0, 0, 0, | |
8248 "Clear out the vector that `this-command-keys' returns.") | |
8249 () | |
8250 { | |
8251 this_command_key_count = 0; | |
8252 return Qnil; | |
8253 } | |
8254 | |
8246 DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0, | 8255 DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0, |
8247 "Return the current depth in recursive edits.") | 8256 "Return the current depth in recursive edits.") |
8248 () | 8257 () |
8249 { | 8258 { |
8250 Lisp_Object temp; | 8259 Lisp_Object temp; |
9060 defsubr (&Sthis_command_keys); | 9069 defsubr (&Sthis_command_keys); |
9061 defsubr (&Sthis_command_keys_vector); | 9070 defsubr (&Sthis_command_keys_vector); |
9062 defsubr (&Sthis_single_command_keys); | 9071 defsubr (&Sthis_single_command_keys); |
9063 defsubr (&Sthis_single_command_raw_keys); | 9072 defsubr (&Sthis_single_command_raw_keys); |
9064 defsubr (&Sreset_this_command_lengths); | 9073 defsubr (&Sreset_this_command_lengths); |
9074 defsubr (&Sclear_this_command_keys); | |
9065 defsubr (&Ssuspend_emacs); | 9075 defsubr (&Ssuspend_emacs); |
9066 defsubr (&Sabort_recursive_edit); | 9076 defsubr (&Sabort_recursive_edit); |
9067 defsubr (&Sexit_recursive_edit); | 9077 defsubr (&Sexit_recursive_edit); |
9068 defsubr (&Srecursion_depth); | 9078 defsubr (&Srecursion_depth); |
9069 defsubr (&Stop_level); | 9079 defsubr (&Stop_level); |