# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 976812712 0
# Node ID f6aeb731a068e6f76c7732877f473a4829afe0fb
# Parent  51d2fcdc53a9b739ff39aaa793cb12dcb07d502b
(delete-key-deletes-forward-mode): Treat ms-dos and
windows-nt as windowed environments, even under -nw.

diff -r 51d2fcdc53a9 -r f6aeb731a068 lisp/simple.el
--- a/lisp/simple.el	Thu Dec 14 16:51:13 2000 +0000
+++ b/lisp/simple.el	Thu Dec 14 16:51:52 2000 +0000
@@ -4050,7 +4050,8 @@
 	    (> (prefix-numeric-value arg) 0)
 	  (not delete-key-deletes-forward)))
 
-  (cond ((memq window-system '(x w32 mac))
+  (cond ((or (memq window-system '(x w32 mac pc))
+	     (memq system-type '(ms-dos windows-nt)))
 	 (if delete-key-deletes-forward
 	     (progn
 	       (define-key global-map [delete] 'delete-char)