# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 936753720 0
# Node ID 34282f1ae111def05e4fc19fd0150a444aac3017
# Parent  709e9cdaaab11e5e3074f966aad2ab43187c29e8
(default-korean-keyboard): Initialize it
according to the environment variable HANGUL_KEYBOARD_TYPE.

diff -r 709e9cdaaab1 -r 34282f1ae111 lisp/language/korea-util.el
--- a/lisp/language/korea-util.el	Tue Sep 07 22:31:38 1999 +0000
+++ b/lisp/language/korea-util.el	Wed Sep 08 01:22:00 1999 +0000
@@ -24,7 +24,10 @@
 ;;; Code:
 
 ;;;###autoload
-(defvar default-korean-keyboard ""
+(defvar default-korean-keyboard
+  (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") ""))
+      "3"
+    "")
   "*The kind of Korean keyboard for Korean input method.
 \"\" for 2, \"3\" for 3.")