# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869282839 0
# Node ID 62090ffa4583f063e4d78dd7f3983d6435d718af
# Parent  2498c062473b982e82795a560bd9fc14f18ba2dd
(find-buffer-file-type-coding-system):
Use emacs-mule-dos for text file names; use undecided-dos
for the last resort (instead of emacs-mule-dos).

diff -r 2498c062473b -r 62090ffa4583 lisp/dos-w32.el
--- a/lisp/dos-w32.el	Sat Jul 19 03:26:48 1997 +0000
+++ b/lisp/dos-w32.el	Sat Jul 19 03:27:19 1997 +0000
@@ -102,27 +102,28 @@
     If the match is nil (for text):			'emacs-mule-dos'
   Otherwise:
     If the file exists:					'undecided'
-    If the file does not exist:				'emacs-mule-dos'
+    If the file does not exist:				'undecided-dos'
 
 If COMMAND is 'write-region', the coding system is chosen based
 upon the value of 'buffer-file-type': If t, the coding system is
 'no-conversion', otherwise it is 'emacs-mule-dos'."
   (let ((op (nth 0 command))
 	(target)
-	(binary)
+	(binary nil) (text nil)
 	(undecided nil))
     (cond ((eq op 'insert-file-contents) 
 	   (setq target (nth 1 command))
 	   (setq binary (find-buffer-file-type target))
-	   (if (not binary)
-	       (setq undecided 
-		     (and (file-exists-p target)
-			  (not (find-buffer-file-type-match target))))))
+	   (unless binary
+	     (if (find-buffer-file-type-match target)
+		 (setq text t)
+	       (setq undecided (file-exists-p target)))))
 	  ((eq op 'write-region) 
 	   (setq binary buffer-file-type)))
     (cond (binary '(no-conversion . no-conversion))
+	  (text '(emacs-mule-dos . emacs-mule-dos))
 	  (undecided '(undecided . undecided))
-	  (t '(emacs-mule-dos . emacs-mule-dos)))))
+	  (t '(undecided-dos . undecided-dos)))))
 
 (modify-coding-system-alist 'file "" 'find-buffer-file-type-coding-system)