(command-line): If the terminal Emacs is running on

has erase char set to ^H, use the Backspace key for deleting
backward, and the Delete key for deleting forward.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75996a4cec6b1f7be77072582117d2c00a4c9ce6..3265c5227f0577a358b95e73de9a989e963518a0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-11-01  Gerd Moellmann  <gerd@gnu.org>
+
+       * startup.el (command-line): If the terminal Emacs is running on
+       has erase char set to ^H, use the Backspace key for deleting
+       backward, and the Delete key for deleting forward.
+
 2001-10-31  Jason Rumney  <jasonr@gnu.org>
 
        * international/mule-cmds.el (locale-language-names): Add chs and

diff --git a/lisp/startup.el b/lisp/startup.el
index 98240fa1b83d28a262097a0b02a6eb28329b3312..0d9687e1558b95edb91b2990dc39d9a0c3851063 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -795,7 +795,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
     (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)))