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.");