# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 922402314 0
# Node ID ef4a540c34ff6674685f6c744beee2b86c929584
# Parent  06762ce530be36dd2eb0f5ec4f30111b5511064e
(set-default-process-coding-system): Copied from dos-w32.el.

diff -r 06762ce530be -r ef4a540c34ff lisp/dos-fns.el
--- a/lisp/dos-fns.el	Thu Mar 25 22:49:36 1999 +0000
+++ b/lisp/dos-fns.el	Thu Mar 25 22:51:54 1999 +0000
@@ -81,6 +81,15 @@
 ;; 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 -r 06762ce530be -r ef4a540c34ff lisp/dos-w32.el
--- a/lisp/dos-w32.el	Thu Mar 25 22:49:36 1999 +0000
+++ b/lisp/dos-w32.el	Thu Mar 25 22:51:54 1999 +0000
@@ -248,15 +248,6 @@
 	(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.