# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 797656246 0
# Node ID eba8070796a4470a1606729f94e6dd5305643b7c
# Parent  9c92e5ea420a79f05adc67d9cb98be702eaf6111
(set-auto-mode) [WINDOWSNT]: Match insensitive to case.

diff -r 9c92e5ea420a -r eba8070796a4 lisp/files.el
--- a/lisp/files.el	Wed Apr 12 03:09:44 1995 +0000
+++ b/lisp/files.el	Wed Apr 12 03:10:46 1995 +0000
@@ -1006,7 +1006,8 @@
 	      (let ((alist auto-mode-alist)
 		    (mode nil))
 		;; Find first matching alist entry.
-		(let ((case-fold-search (eq system-type 'vax-vms)))
+		(let ((case-fold-search 
+		       (memq system-type '(vax-vms windows-nt))))
 		  (while (and (not mode) alist)
 		    (if (string-match (car (car alist)) name)
 			(if (and (consp (cdr (car alist)))