diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-01-22 01:45:51 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-01-22 01:45:51 +0000 |
| commit | 8f3969f8ab93f4c7361097f5aeac9a8b9430ae77 (patch) | |
| tree | 64b2ecacc6baf58ac34bc82064920d721d555228 /lisp/language/japan-util.el | |
| parent | 5e92d2b80109ccad114ed62591b9f6d518a0e800 (diff) | |
| download | emacs-8f3969f8ab93f4c7361097f5aeac9a8b9430ae77.tar.gz | |
In setup-LANGUAGE-environment functions,
call set-language-environment-coding-systems.
Diffstat (limited to 'lisp/language/japan-util.el')
| -rw-r--r-- | lisp/language/japan-util.el | 21 |
1 files changed, 3 insertions, 18 deletions
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el index 35e6c3f686f..6d257c3f6aa 100644 --- a/lisp/language/japan-util.el +++ b/lisp/language/japan-util.el @@ -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 |