procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

(default-korean-keyboard): Initialize it

Browse source 
according to the environment variable HANGUL_KEYBOARD_TYPE.
This commit is contained in:
Kenichi Handa 1999-09-08 01:22:00 +00:00
parent 5a4c88c4f4
commit 01ba5cc0c1
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/language/korea-util.el
View file

@ -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.")