mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(auto-coding-alist-lookup): Include ms-dos

Browse Source 
in the list of case-insensitive filesystems.
This commit is contained in:
Eli Zaretskii 1999-04-11 16:26:11 +00:00
parent 75447cdd77
commit ca128d7556
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/international/mule.el
View File

@ -906,7 +906,7 @@ This is used for loading and byte-compiling Emacs Lisp files.")
(defun auto-coding-alist-lookup (filename)
"Return the coding system specified by `auto-coding-alist' for FILENAME."
(let ((alist auto-coding-alist)
(case-fold-search (memq system-type '(vax-vms windows-nt)))
(case-fold-search (memq system-type '(vax-vms windows-nt ms-dos)))
coding-system)
(while (and alist (not coding-system))
(if (string-match (car (car alist)) filename)