Mercurial > emacs

changeset 34552:f1e35f98c453

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Call delete-key-deletes-forward-mode, if appropriate.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 14 Dec 2000 13:36:34 +0000
parents c1fa004347dc
children bd89ec7640bb
files lisp/startup.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)