From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 4 Apr 2001 14:05:18 +0000 (+0000)
Subject: (command-line): Use normal-erase-is-backspace and
X-Git-Tag: emacs-pretest-21.0.101~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8e17bc6863936a1f3f6824ec1051c17295479e3;p=emacs.git

(command-line): Use normal-erase-is-backspace and
normal-erase-is-backspace-mode.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 47fd84332d2..719f127d43e 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -780,8 +780,8 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
 	      (and (memq window-system '(x))
 		   (fboundp 'x-backspace-delete-keys-p)
 		   (x-backspace-delete-keys-p)))
-      (setq-default delete-key-deletes-forward t)
-      (delete-key-deletes-forward-mode 1)))
+      (setq-default normal-erase-is-backspace t)
+      (normal-erase-is-backspace-mode 1)))
 
   (when (and (not noninteractive)
 	     (display-graphic-p)