# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1004620118 0
# Node ID 1c821a940597ad717cc714a39dfc7ea61a2e4816
# Parent  1ec9f5822539d394425c2cec2049319b65a901f4
(command-line): If the terminal Emacs is running on
has erase char set to ^H, use the Backspace key for deleting
backward and, and the Delete key for deleting forward.

diff -r 1ec9f5822539 -r 1c821a940597 lisp/startup.el
--- a/lisp/startup.el	Thu Nov 01 11:25:01 2001 +0000
+++ b/lisp/startup.el	Thu Nov 01 13:08:38 2001 +0000
@@ -800,7 +800,12 @@
     (when (or (memq system-type '(ms-dos windows-nt))
 	      (and (memq window-system '(x))
 		   (fboundp 'x-backspace-delete-keys-p)
-		   (x-backspace-delete-keys-p)))
+		   (x-backspace-delete-keys-p))
+	      ;; If the terminal Emacs is running on has erase char
+	      ;; set to ^H, use the Backspace key for deleting
+	      ;; backward and, and the Delete key for deleting forward.
+	      (and (null window-system)
+		   (eq tty-erase-char 8)))
       (setq-default normal-erase-is-backspace t)
       (normal-erase-is-backspace-mode 1)))