From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 12 Apr 1995 03:10:46 +0000 (+0000)
Subject: (set-auto-mode) [WINDOWSNT]: Match insensitive to case.
X-Git-Tag: emacs-19.34~4461
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64ce1458eff7a80547bc0ceaa8aecf58635985d5;p=emacs.git

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

diff --git a/lisp/files.el b/lisp/files.el
index fdac3151fe7..5d9795aedda 100644
--- 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)))