# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 870678091 0
# Node ID f8aebb949291fae4fc571a8773f087896ff41e4b
# Parent  a036a16c0114c4cd5284a0536f5b5e0a90b57038
(setup-japanese-environment): Do not
call set-terminal-coding-system and set-keyboard-coding-system,
instead call set-defualt-coding-systems.

diff -r a036a16c0114 -r f8aebb949291 lisp/language/japan-util.el
--- a/lisp/language/japan-util.el	Mon Aug 04 07:01:31 1997 +0000
+++ b/lisp/language/japan-util.el	Mon Aug 04 07:01:31 1997 +0000
@@ -29,6 +29,7 @@
   "Setup multilingual environment (MULE) for Japanese."
   (interactive)
   (setup-english-environment)
+
   (setq coding-category-iso-8-2 'japanese-iso-8bit)
 
   (set-coding-priority
@@ -40,16 +41,10 @@
      coding-category-iso-8-else
      coding-category-emacs-mule))
 
-  (if (eq system-type 'ms-dos)
-      (progn
-	(setq-default buffer-file-coding-system 'japanese-shift-jis)
-	(set-terminal-coding-system-internal 'japanese-shift-jis)
-	(set-keyboard-coding-system-internal 'japanese-shift-jis)
-	(setq default-process-coding-system
-	      '(japanese-shift-jis-dos . japanese-shift-jis-dos)))
-    (setq-default buffer-file-coding-system 'iso-2022-7bit)
-    (set-terminal-coding-system-internal 'iso-2022-7bit)
-    (set-keyboard-coding-system-internal 'iso-2022-7bit))
+  (set-default-coding-systems
+   (if (eq system-type 'ms-dos)
+       'japanese-shift-jis
+     'iso-2022-7bit))
 
   (setq default-input-method "japanese")
   (setq-default default-input-method "japanese")