From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 19 May 1997 02:35:09 +0000 (+0000)
Subject: (Vtty_erase_char): Variable defined
X-Git-Tag: emacs-20.1~2075
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/fa90970d22959b8f3d1d2d55973a4344f3298e4e

(Vtty_erase_char): Variable defined
(syms_of_keyboard): Set up Lisp variable.
Also set up `num-nonmacro-input-chars' to report actual keystrokes.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index f299bd01e2..b221da53d7 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -171,6 +171,9 @@ static int inhibit_local_menu_bar_menus;
 /* 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 @@ This includes key sequences read from keyboard macros.\n\
 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\