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

1995-04-12 03:10:46 +00:00
parent 723ddb1f81
commit 64ce1458ef
1 changed files with 2 additions and 1 deletions
--- 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)))