(find-binary-process-coding-system): Remove.

(default-process-coding-system): Make it be raw-text-dos if async
processes are supported, undecided-dos otherwise.

diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el
index a4473598aa48b88d77b667feb8246d9600d0ee85..a03617ffd24dab9811cb25847f4c58cbf5af25b2 100644 (file)
--- a/lisp/dos-w32.el
+++ b/lisp/dos-w32.el
@@ -244,24 +244,10 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"."
        (delete (untranslated-canonical-name filesystem)
                untranslated-filesystem-list)))
 
-;; Process I/O decoding and encoding.
-
-(defun find-binary-process-coding-system (command)
-  "Choose a coding system for process I/O.
-The coding system for decode is 'no-conversion' if 'binary-process-output'
-is non-nil, and 'undecided-dos' otherwise.  Similarly, the coding system 
-for encode is 'no-conversion' if 'binary-process-input' is non-nil,
-and 'undecided-dos' otherwise."
-  (let ((decode 'undecided-dos)
-       (encode 'undecided-dos))
-    (if binary-process-output
-       (setq decode 'no-conversion))
-    (if binary-process-input
-       (setq encode 'no-conversion))
-    (cons decode encode)))
-
-(modify-coding-system-alist 'process "" 'find-binary-process-coding-system)
-
+(setq-default default-process-coding-system
+             (if (fboundp 'start-process)
+                 '(raw-text-dos . raw-text-dos)
+               '(undecided-dos . undecided-dos)))
 
 (provide 'dos-w32)