# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 967083005 0
# Node ID 5dab940bf298db149ba5189618aae21ae1ea8b56
# Parent  b436ef5ec659d8fa4b7aaa31ab544da54520c02d
(reset-language-environment): Set default-process-coding-system to
'(undecided . iso-latin-1), which makes process I/O almost consistent
with file I/O.  Call this function when mule-cmds.el[c] is loaded.

diff -r b436ef5ec659 -r 5dab940bf298 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Thu Aug 24 02:09:20 2000 +0000
+++ b/lisp/international/mule-cmds.el	Thu Aug 24 02:10:05 2000 +0000
@@ -1293,6 +1293,7 @@
 
   (set-default-coding-systems nil)
   (setq default-sendmail-coding-system 'iso-latin-1)
+  (setq default-process-coding-system '(undecided . iso-latin-1))
 
   ;; Don't alter the terminal and keyboard coding systems here.
   ;; The terminal still supports the same coding system
@@ -1303,6 +1304,8 @@
   (setq nonascii-translation-table nil
 	nonascii-insert-offset 0))
 
+(reset-language-environment)
+
 (defun set-display-table-and-terminal-coding-system (language-name)
   "Set up the display table and terminal coding system for LANGUAGE-NAME."
   (let ((coding (get-language-info language-name 'unibyte-display)))