Mercurial > emacs

changeset 35826:5b6e4f82f267

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Fix code determining whether or not to use delete-key-deletes-forward-mode.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 01 Feb 2001 15:22:20 +0000
parents 4f488744f7bb
children 8258a6628b85
files lisp/startup.el
diffstat 1 files changed, 9 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Thu Feb 01 15:16:04 2001 +0000
+++ b/lisp/startup.el	Thu Feb 01 15:22:20 2001 +0000
@@ -771,15 +771,15 @@
     (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)