Mercurial > emacs
changeset 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 | a2fefbc6e46b |
| children | 1c5753313c4e |
| files | src/keyboard.c |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Mon May 19 02:34:16 1997 +0000 +++ b/src/keyboard.c Mon May 19 02:35:09 1997 +0000 @@ -171,6 +171,9 @@ /* Nonzero means C-g should cause immediate error-signal. */ int immediate_quit; +/* The user's ERASE setting. */ +Lisp_Object Vtty_erase_char; + /* Character to recognize as the help char. */ Lisp_Object Vhelp_char; @@ -8127,11 +8130,20 @@ The number is effectively the number of interactive command invocations."); num_input_keys = 0; + DEFVAR_INT ("num-nonmacro-input-chars", &num_nonmacro_input_chars, + "Number of characters read from the keyboard so far.\n\ +Does not include characters read from keyboard macros."); + num_nonmacro_input_chars = 0; + DEFVAR_LISP ("last-event-frame", &Vlast_event_frame, "The frame in which the most recently read event occurred.\n\ If the last event came from a keyboard macro, this is set to `macro'."); Vlast_event_frame = Qnil; + /* This variable is set up in sysdep.c. */ + DEFVAR_LISP ("tty-erase-char", &Vtty_erase_char, + "The ERASE character as set by the user with stty."); + DEFVAR_LISP ("help-char", &Vhelp_char, "Character to recognize as meaning Help.\n\ When it is read, do `(eval help-form)', and display result if it's a string.\n\