diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/language/korean.el | 19 |
2 files changed, 17 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8a6b2b6be5b..0e8bed3f338 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-06-18 Kenichi Handa <handa@m17n.org> + * language/korean.el ("Korean"): Fix `documentation' property of + this language environment. + * language/korea-util.el (korean-key-bindings): Add binding for key Hangul. diff --git a/lisp/language/korean.el b/lisp/language/korean.el index 731ded4c707..e8e78bfc47b 100644 --- a/lisp/language/korean.el +++ b/lisp/language/korean.el @@ -43,7 +43,6 @@ (define-coding-system-alias 'euc-kr 'korean-iso-8bit) (define-coding-system-alias 'euc-korea 'korean-iso-8bit) -(define-coding-system-alias 'cp949 'korean-iso-8bit) (define-coding-system 'iso-2022-kr "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)." @@ -58,6 +57,14 @@ (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) +(define-coding-system 'korean-cp949 + "CP949 (Microsoft Unified Hangul Code)" + :coding-type 'charset + :mnemonic ?K + :charset-list '(ascii cp949)) + +(define-coding-system-alias 'cp949 'korean-cp949) + (set-language-info-alist "Korean" '((setup-function . setup-korean-environment-internal) (exit-function . exit-korean-environment) @@ -70,10 +77,12 @@ (coding-priority korean-iso-8bit iso-2022-kr) (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") (documentation . "\ -The following key bindings are available while using Korean input methods: - Shift-SPC: toggle-korean-input-mthod - Control-F9: quail-hangul-switch-symbol-ksc - F9: quail-hangul-switch-hanja") +The following key bindings are available for controlling Korean input methods: + Shift-SPC, Hangul: toggle-korean-input-method + Control-F9: quail-hangul-switch-symbol-ksc + F9: quail-hangul-switch-hanja +and the following key bindings are available within Korean input methods: + F9, Hangul_Hanja: hangul-to-hanja-conversion") )) (provide 'korean) |