From 9ded625dddb36ce149d30cfd25e220c934aac56f Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 14 Dec 2000 16:51:13 +0000 Subject: [PATCH] (command-line): Don't call x-backspace-delete-keys-p if not fboundp. Switch delete-forward mode for the key on all PC platforms, even under -nw. --- lisp/startup.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 06ed24620b2..2efe5d7f712 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -768,9 +768,13 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (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)) + ;; 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)) (when (and (not noninteractive) -- 2.39.2