Mercurial > emacs
changeset 25599:34282f1ae111
(default-korean-keyboard): Initialize it
according to the environment variable HANGUL_KEYBOARD_TYPE.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 08 Sep 1999 01:22:00 +0000 |
| parents | 709e9cdaaab1 |
| children | 6cea4c28fc1c |
| files | lisp/language/korea-util.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.")