diff options
Diffstat (limited to 'lisp/language/japan-util.el')
| -rw-r--r-- | lisp/language/japan-util.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el index bdc33addd1c..6cd54e27114 100644 --- a/lisp/language/japan-util.el +++ b/lisp/language/japan-util.el @@ -30,12 +30,13 @@ (defun setup-japanese-environment () "Setup multilingual environment (MULE) for Japanese." (interactive) - (setup-english-environment) - (set-language-environment-coding-systems "Japanese") + (set-language-environment "Japanese")) + +;;;###autoload +(defun setup-japanese-environment-internal () (if (eq system-type 'ms-dos) - (prefer-coding-system 'japanese-shift-jis)) - (setq default-file-name-coding-system 'japanese-iso-8bit) - (setq default-input-method "japanese") + (prefer-coding-system 'japanese-shift-jis) + (setq default-file-name-coding-system 'japanese-iso-8bit)) (setq sentence-end-save sentence-end) (setq sentence-end (concat sentence-end "\\|[。？！]"))) |