From: Geoff Voelker <voelker@cs.washington.edu>
Date: Tue, 10 Nov 1998 21:06:50 +0000 (+0000)
Subject: (set-default-process-coding-system): Use function on
X-Git-Tag: emacs-20.4~1267
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5dbd225734d2d112b94f3509877b9c2c72fdd13d;p=emacs.git

(set-default-process-coding-system): Use function on
before-init-hook to set default-process-coding-system based on
enable-multibyte-characters.
---

diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el
index e7d427f612d..4adeb7752b4 100644
--- a/lisp/dos-w32.el
+++ b/lisp/dos-w32.el
@@ -247,10 +247,14 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"."
 	(delete (untranslated-canonical-name filesystem)
 		untranslated-filesystem-list)))
 
-(setq-default default-process-coding-system
-	      (if (fboundp 'start-process)
-		  '(raw-text-dos . raw-text-dos)
-		'(undecided-dos . undecided-dos)))
+;;; 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.
 (defvar printer-name)