From: Kenichi Handa <handa@m17n.org>
Date: Wed, 8 Sep 1999 01:22:00 +0000 (+0000)
Subject: (default-korean-keyboard): Initialize it
X-Git-Tag: emacs-pretest-21.0.90~6843
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=01ba5cc0c16872c5eb4c6e6a1fe6822f4e4273b4;p=emacs.git

(default-korean-keyboard): Initialize it
according to the environment variable HANGUL_KEYBOARD_TYPE.
---

diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el
index d77a65aa9f1..4b4292d52ba 100644
--- a/lisp/language/korea-util.el
+++ b/lisp/language/korea-util.el
@@ -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.")