diff options
| author | Gerd Moellmann <[email protected]> | 2001-02-01 15:22:20 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2001-02-01 15:22:20 +0000 |
| commit | 3ecd8ad08f404883c9b53f9d13b16c59c358fa31 (patch) | |
| tree | 56e29249b58846c9cfb813c255e7bcd37b138c84 | |
| parent | 5b1ee3165c638c8e68d79965ef32c5f8500eb533 (diff) | |
(command-line): Fix code determining whether or not
to use delete-key-deletes-forward-mode.
| -rw-r--r-- | lisp/startup.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 46a62548a4..489f7775a3 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 - ;; <delete> and <backspace> 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 + ;; <delete> and <backspace> 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) |