# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 864009309 0
# Node ID abc5e3a73109c388b98749fee50b4f87987ce988
# Parent  a2fefbc6e46b63467e93e7ecba06b18ee927a74e
(Vtty_erase_char): Variable defined
(syms_of_keyboard): Set up Lisp variable.
Also set up `num-nonmacro-input-chars' to report actual keystrokes.

diff -r a2fefbc6e46b -r abc5e3a73109 src/keyboard.c
--- 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\