From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 11 Apr 1999 16:26:11 +0000 (+0000)
Subject: (auto-coding-alist-lookup): Include ms-dos
X-Git-Tag: emacs-20.4~339
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca128d75562a3549c08c18cc94be7c1a8cb58f02;p=emacs.git

(auto-coding-alist-lookup): Include ms-dos
in the list of case-insensitive filesystems.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 9087aa1c933..b9647b75b1c 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -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)