# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 871696527 0
# Node ID 0d6c6ac2f772230d73a65092bd9c250ebe18b0c9
# Parent  1285827119418c3f362b4d68232e46b8c61d43cb
(setup-korean-environment):  Delete
a code setting default value of default-input-method.

diff -r 128582711941 -r 0d6c6ac2f772 lisp/language/korean.el
--- a/lisp/language/korean.el	Sat Aug 16 01:55:27 1997 +0000
+++ b/lisp/language/korean.el	Sat Aug 16 01:55:27 1997 +0000
@@ -59,8 +59,7 @@
 
   (set-default-coding-systems 'korean-iso-8bit)
 
-  (setq default-input-method "korean-hangul")
-  (setq-default default-input-method "korean-hangul"))
+  (setq default-input-method "korean-hangul"))
 
 (set-language-info-alist
  "Korean" '((setup-function . setup-korean-environment)