(set-default-process-coding-system): Copied from dos-w32.el.

diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el
index ac67c90434038ab7923999c9b91a837144e90012..64ed19b00107ac19e54f6dd56610134e5f6cf3c2 100644 (file)
--- a/lisp/dos-fns.el
+++ b/lisp/dos-fns.el
@@ -81,6 +81,15 @@ with a definition that really does change some file names."
 ;; See dos-vars.el for defcustom.
 (defvar msdos-shells)
 
+;;; Override setting chosen at startup.
+(defun set-default-process-coding-system ()
+  (setq default-process-coding-system
+       (if default-enable-multibyte-characters
+           '(undecided-dos . undecided-dos)
+         '(raw-text-dos . raw-text-dos))))
+
+(add-hook 'before-init-hook 'set-default-process-coding-system)
+
 (defvar register-name-alist
   '((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5)
     (cflag . 6) (flags . 7)

diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el
index 2d5377ef747701b331ff39136cad15542b507023..79250ee302bb2f85fee5f28785423f188c6a3391 100644 (file)
--- a/lisp/dos-w32.el
+++ b/lisp/dos-w32.el
@@ -248,15 +248,6 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"."
        (delete (untranslated-canonical-name filesystem)
                untranslated-filesystem-list)))
 
-;;; Override setting chosen at startup.
-(defun set-default-process-coding-system ()
-  (setq default-process-coding-system
-       (if default-enable-multibyte-characters
-           '(undecided-dos . undecided-dos)
-         '(raw-text-dos . raw-text-dos))))
-
-(add-hook 'before-init-hook 'set-default-process-coding-system)
-
 ;;; Support for printing under DOS/Windows, see lpr.el and ps-print.el.
 
 ;; Function to actually send data to the printer port.