(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 --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 334860b018ece09e7699552d353e1e97dd3d7868..68d456c1f092c45c635f356beea13c958258b234 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1293,6 +1293,7 @@ The default status is as follows:
 
   (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 @@ The default status is as follows:
   (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)))