Mercurial > emacs
comparison src/keyboard.c @ 17870:abc5e3a73109
(Vtty_erase_char): Variable defined
(syms_of_keyboard): Set up Lisp variable.
Also set up `num-nonmacro-input-chars' to report actual keystrokes.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 19 May 1997 02:35:09 +0000 |
parents | f20c2a909ad3 |
children | f5778138efc7 |
comparison
equal
deleted
inserted
replaced
17869:a2fefbc6e46b | 17870:abc5e3a73109 |
---|---|
168 /* Nonzero means disregard local maps for the menu bar. */ | 168 /* Nonzero means disregard local maps for the menu bar. */ |
169 static int inhibit_local_menu_bar_menus; | 169 static int inhibit_local_menu_bar_menus; |
170 | 170 |
171 /* Nonzero means C-g should cause immediate error-signal. */ | 171 /* Nonzero means C-g should cause immediate error-signal. */ |
172 int immediate_quit; | 172 int immediate_quit; |
173 | |
174 /* The user's ERASE setting. */ | |
175 Lisp_Object Vtty_erase_char; | |
173 | 176 |
174 /* Character to recognize as the help char. */ | 177 /* Character to recognize as the help char. */ |
175 Lisp_Object Vhelp_char; | 178 Lisp_Object Vhelp_char; |
176 | 179 |
177 /* List of other event types to recognize as meaning "help". */ | 180 /* List of other event types to recognize as meaning "help". */ |
8125 "Number of complete key sequences read from the keyboard so far.\n\ | 8128 "Number of complete key sequences read from the keyboard so far.\n\ |
8126 This includes key sequences read from keyboard macros.\n\ | 8129 This includes key sequences read from keyboard macros.\n\ |
8127 The number is effectively the number of interactive command invocations."); | 8130 The number is effectively the number of interactive command invocations."); |
8128 num_input_keys = 0; | 8131 num_input_keys = 0; |
8129 | 8132 |
8133 DEFVAR_INT ("num-nonmacro-input-chars", &num_nonmacro_input_chars, | |
8134 "Number of characters read from the keyboard so far.\n\ | |
8135 Does not include characters read from keyboard macros."); | |
8136 num_nonmacro_input_chars = 0; | |
8137 | |
8130 DEFVAR_LISP ("last-event-frame", &Vlast_event_frame, | 8138 DEFVAR_LISP ("last-event-frame", &Vlast_event_frame, |
8131 "The frame in which the most recently read event occurred.\n\ | 8139 "The frame in which the most recently read event occurred.\n\ |
8132 If the last event came from a keyboard macro, this is set to `macro'."); | 8140 If the last event came from a keyboard macro, this is set to `macro'."); |
8133 Vlast_event_frame = Qnil; | 8141 Vlast_event_frame = Qnil; |
8142 | |
8143 /* This variable is set up in sysdep.c. */ | |
8144 DEFVAR_LISP ("tty-erase-char", &Vtty_erase_char, | |
8145 "The ERASE character as set by the user with stty."); | |
8134 | 8146 |
8135 DEFVAR_LISP ("help-char", &Vhelp_char, | 8147 DEFVAR_LISP ("help-char", &Vhelp_char, |
8136 "Character to recognize as meaning Help.\n\ | 8148 "Character to recognize as meaning Help.\n\ |
8137 When it is read, do `(eval help-form)', and display result if it's a string.\n\ | 8149 When it is read, do `(eval help-form)', and display result if it's a string.\n\ |
8138 If the value of `help-form' is nil, this char can be read normally."); | 8150 If the value of `help-form' is nil, this char can be read normally."); |