1631 |
(defun auto-coding-alist-lookup (filename) |
(defun auto-coding-alist-lookup (filename) |
1632 |
"Return the coding system specified by `auto-coding-alist' for FILENAME." |
"Return the coding system specified by `auto-coding-alist' for FILENAME." |
1633 |
(let ((alist auto-coding-alist) |
(let ((alist auto-coding-alist) |
1634 |
(case-fold-search (memq system-type '(vax-vms windows-nt ms-dos))) |
(case-fold-search (memq system-type '(vax-vms windows-nt ms-dos cygwin))) |
1635 |
coding-system) |
coding-system) |
1636 |
(while (and alist (not coding-system)) |
(while (and alist (not coding-system)) |
1637 |
(if (string-match (car (car alist)) filename) |
(if (string-match (car (car alist)) filename) |