(setup-japanese-environment): Do not

call set-terminal-coding-system and set-keyboard-coding-system,
instead call set-defualt-coding-systems.

1 files changed, 5 insertions, 10 deletions

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 95ae9fb5b28..95d139843db 100644
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -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")