(set-auto-mode) [WINDOWSNT]: Match insensitive to case.

diff --git a/lisp/files.el b/lisp/files.el
index fdac3151fe73331d788d8a3b2479e95bfdd459a0..5d9795aedda6f4a12475c23febf320a81b2e57a5 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1006,7 +1006,8 @@ If `enable-local-variables' is nil, this function does not check for a
              (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)))