diff options
| author | Kenichi Handa <handa@m17n.org> | 1999-09-08 01:22:00 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1999-09-08 01:22:00 +0000 |
| commit | 01ba5cc0c16872c5eb4c6e6a1fe6822f4e4273b4 (patch) | |
| tree | be5b20318a0bfe71f2d7594a718b3f9770a019e5 /lisp/language/korea-util.el | |
| parent | 5a4c88c4f417acde163837a4d2fb670b8c58bcf9 (diff) | |
| download | emacs-01ba5cc0c16872c5eb4c6e6a1fe6822f4e4273b4.tar.gz | |
(default-korean-keyboard): Initialize it
according to the environment variable HANGUL_KEYBOARD_TYPE.
Diffstat (limited to 'lisp/language/korea-util.el')
| -rw-r--r-- | lisp/language/korea-util.el | 5 |
1 files changed, 4 insertions, 1 deletions
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.") |