Mercurial > emacs

diff lisp/language/japan-util.el @ 20738:f510736ce3d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
In setup-LANGUAGE-environment functions, call set-language-environment-coding-systems.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 Jan 1998 01:45:51 +0000
parents c6f58c509273
children 1ae9ab956d88
line wrap: on
line diff
--- a/lisp/language/japan-util.el	Thu Jan 22 01:45:17 1998 +0000
+++ b/lisp/language/japan-util.el	Thu Jan 22 01:45:51 1998 +0000
@@ -29,24 +29,9 @@
   "Setup multilingual environment (MULE) for Japanese."
   (interactive)
   (setup-english-environment)
-
-  (setq coding-category-iso-8-2 'japanese-iso-8bit)
-  (setq coding-category-iso-8-else 'japanese-iso-8bit)
-
-  (set-coding-priority
-   '(coding-category-iso-7
-     coding-category-iso-8-2
-     coding-category-sjis
-     coding-category-iso-8-1
-     coding-category-iso-7-else
-     coding-category-iso-8-else
-     coding-category-emacs-mule))
-
-  (set-default-coding-systems
-   (if (eq system-type 'ms-dos)
-       'japanese-shift-jis
-     'iso-2022-jp))
-
+  (set-language-environment-coding-systems "Japanese")
+  (if (eq system-type 'ms-dos)
+      (prefer-coding-system 'japanese-shift-jis))
   (setq default-input-method "japanese"))
 
 (defconst japanese-kana-table