Commit 64ce1458 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent 723ddb1f
......@@ -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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment