diff options
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 | |||
| 1006 | (let ((alist auto-mode-alist) | 1006 | (let ((alist auto-mode-alist) |
| 1007 | (mode nil)) | 1007 | (mode nil)) |
| 1008 | ;; Find first matching alist entry. | 1008 | ;; Find first matching alist entry. |
| 1009 | (let ((case-fold-search (eq system-type 'vax-vms))) | 1009 | (let ((case-fold-search |
| 1010 | (memq system-type '(vax-vms windows-nt)))) | ||
| 1010 | (while (and (not mode) alist) | 1011 | (while (and (not mode) alist) |
| 1011 | (if (string-match (car (car alist)) name) | 1012 | (if (string-match (car (car alist)) name) |
| 1012 | (if (and (consp (cdr (car alist))) | 1013 | (if (and (consp (cdr (car alist))) |