(setup-korean-environment): Set default-input-method correctly.

diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index 509a2fb486a0ae56fbd9c3c0d8f4c16119da7a42..5fd8b735c0f98bd91a89e561e3b05a341b878824 100644 (file)
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -59,8 +59,7 @@
 
   (setq-default buffer-file-coding-system 'korean-iso-8bit)
 
-  (setq default-input-method '("Korean" . "korean-hangul"))
-  )
+  (setq default-input-method "korean-hangul"))
 
 (set-language-info-alist
  "Korean" '((setup-function . setup-korean-environment)