# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 976800994 0
# Node ID f1e35f98c453b48867f3f162f53bb57100dae4ff
# Parent  c1fa004347dc45bebaaec0d23bb8d54c09a8931a
(command-line): Call delete-key-deletes-forward-mode,
if appropriate.

diff -r c1fa004347dc -r f1e35f98c453 lisp/startup.el
--- a/lisp/startup.el	Thu Dec 14 12:02:24 2000 +0000
+++ b/lisp/startup.el	Thu Dec 14 13:36:34 2000 +0000
@@ -768,6 +768,12 @@
     (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))
     (setq-default tooltip-mode t)