procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Karl Heuer 1995-04-12 03:10:46 +00:00
parent 723ddb1f81
commit 64ce1458ef
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/files.el
View file

@ -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)))