From 64ce1458eff7a80547bc0ceaa8aecf58635985d5 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 12 Apr 1995 03:10:46 +0000 Subject: [PATCH] (set-auto-mode) [WINDOWSNT]: Match insensitive to case. --- lisp/files.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.5