Mercurial > emacs
changeset 103468:2b8f8bb24ec9
("Korean"): Fix `documentation' property of this language environment.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 18 Jun 2009 01:15:32 +0000 |
| parents | 6b367faf933e |
| children | 2ef54dcdd516 |
| files | lisp/language/korean.el |
| diffstat | 1 files changed, 14 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/korean.el Thu Jun 18 01:02:45 2009 +0000 +++ b/lisp/language/korean.el Thu Jun 18 01:15:32 2009 +0000 @@ -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)