# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 868954938 0
# Node ID ddf73154a296ae02b09e712c9a78c4564d255a16
# Parent  d964ed8848496834d9f1912fc3f0e46215e1a6b3
(setup-korean-environment): Set default-input-method correctly.

diff -r d964ed884849 -r ddf73154a296 lisp/language/korean.el
--- a/lisp/language/korean.el	Tue Jul 15 08:22:18 1997 +0000
+++ b/lisp/language/korean.el	Tue Jul 15 08:22:18 1997 +0000
@@ -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)