From 3ecd8ad08f404883c9b53f9d13b16c59c358fa31 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 1 Feb 2001 15:22:20 +0000 Subject: [PATCH] (command-line): Fix code determining whether or not to use delete-key-deletes-forward-mode. --- lisp/startup.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 46a62548a4d..489f7775a3e 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -771,15 +771,15 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (setq-default blink-cursor t) (blink-cursor-mode 1)) - (when (and (not noninteractive) - ;; DOS/Windows systems have a PC-type keyboard which has both - ;; and keys. - (or (memq system-type '(ms-dos windows-nt)) - (memq window-system '(x)))) - (setq-default delete-key-deletes-forward - (or (not (fboundp 'x-backspace-delete-keys-p)) - (x-backspace-delete-keys-p))) - (delete-key-deletes-forward-mode 1)) + (unless noninteractive + ;; DOS/Windows systems have a PC-type keyboard which has both + ;; and keys. + (when (or (memq system-type '(ms-dos windows-nt)) + (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))) (when (and (not noninteractive) (display-graphic-p) -- 2.39.2