diff options
Diffstat (limited to 'lisp/language/korea-util.el')
| -rw-r--r-- | lisp/language/korea-util.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el index c1787a15a3b..8afdbbfa822 100644 --- a/lisp/language/korea-util.el +++ b/lisp/language/korea-util.el @@ -90,11 +90,10 @@ (defun setup-korean-environment () "Setup multilingual environment (MULE) for Korean." (interactive) - (setup-english-environment) - (set-language-environment-coding-systems "Korean") - - (setq default-input-method "korean-hangul") + (set-language-environment "Korean")) +;;;###autoload +(defun setup-korean-environment-internal () (let ((key-bindings korean-key-bindings)) (while key-bindings (let* ((this (car key-bindings)) |