# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 972674551 0
# Node ID a7eb5c4fe0ba9816ca3ee022a35bdb79233d97e3
# Parent  36a2f5c43e8fc2f40bd1f1124e7eaffd6bfaa846
(find-file-not-found-set-buffer-file-coding-system):
Don't call find-buffer-file-type-coding-system.  Instead, just
set eol-type to -unix if inhibit-eol-conversion is in effect, or
if the file is on an untranslated filesystem.
(add-untranslated-filesystem): Use "D" instead of "f" inside
interactive.

diff -r 36a2f5c43e8f -r a7eb5c4fe0ba lisp/dos-w32.el
--- a/lisp/dos-w32.el	Fri Oct 27 19:19:59 2000 +0000
+++ b/lisp/dos-w32.el	Fri Oct 27 19:22:31 2000 +0000
@@ -177,10 +177,16 @@
 (defun find-file-not-found-set-buffer-file-coding-system ()
   (save-excursion
     (set-buffer (current-buffer))
-    (let* ((dummy-insert-op (list 'insert-file-contents (buffer-file-name)))
-	   (coding-system-pair
-	    (find-buffer-file-type-coding-system dummy-insert-op)))
-      (setq buffer-file-coding-system (car coding-system-pair))
+    (let ((coding buffer-file-coding-system))
+      ;; buffer-file-coding-system is already set by
+      ;; find-operation-coding-system, which was called from
+      ;; insert-file-contents.  All that's left is to change
+      ;; the EOL conversion, if required by the user.
+      (when (and (null coding-system-for-read)
+		 (or inhibit-eol-conversion
+		     (untranslated-file-p (buffer-file-name))))
+	(setq coding (coding-system-change-eol-conversion coding 0))
+	(setq buffer-file-coding-system coding))
       (setq buffer-file-type (eq buffer-file-coding-system 'no-conversion)))))
 
 ;;; To set the default coding system on new files.
@@ -233,7 +239,10 @@
 CR/LF translation.  FILESYSTEM is a string containing the directory
 prefix corresponding to the filesystem.  For example, for a Unix 
 filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"."
-  (interactive "fUntranslated file system: ")
+  ;; We use "D", not "f", to avoid confusing the user: "f" prompts
+  ;; with a directory, but RET returns the current buffer's file, not
+  ;; its directory.
+  (interactive "DUntranslated file system: ")
   (let ((fs (untranslated-canonical-name filesystem)))
     (if (member fs untranslated-filesystem-list)
 	untranslated-filesystem-list