diff options
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/korean.el | 19 |
1 files changed, 14 insertions, 5 deletions
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) |