From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 14 Dec 2000 13:36:34 +0000 (+0000)
Subject: (command-line): Call delete-key-deletes-forward-mode,
X-Git-Tag: emacs-pretest-21.0.95~534
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14f076a8ce03667b53ae5848a9932deca278d1c9;p=emacs.git

(command-line): Call delete-key-deletes-forward-mode,
if appropriate.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 6978855bd93..06ed24620b2 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -767,6 +767,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
     (setq-default blink-cursor t)
     (blink-cursor-mode 1))
 
+  (when (and (not noninteractive)
+	     (not (eq system-type 'ms-dos))
+	     (memq window-system '(x)))
+    (setq-default delete-key-deletes-forward (x-backspace-delete-keys-p))
+    (delete-key-deletes-forward-mode 1))
+
   (when (and (not noninteractive)
 	     (display-graphic-p)
 	     (fboundp 'x-show-tip))