From 14f076a8ce03667b53ae5848a9932deca278d1c9 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 14 Dec 2000 13:36:34 +0000 Subject: (command-line): Call delete-key-deletes-forward-mode, if appropriate. --- lisp/startup.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lisp') diff --git a/lisp/startup.el b/lisp/startup.el index 6978855bd9..06ed24620b 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)) -- cgit v1.2.3