Mercurial > emacs
comparison lisp/language/korean.el @ 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 | a9dc0e7c3f2b |
children | 702e3f83e52f |
comparison
equal
deleted
inserted
replaced
103467:6b367faf933e | 103468:2b8f8bb24ec9 |
---|---|
41 :charset-list '(ascii korean-ksc5601) | 41 :charset-list '(ascii korean-ksc5601) |
42 :mime-charset 'euc-kr) | 42 :mime-charset 'euc-kr) |
43 | 43 |
44 (define-coding-system-alias 'euc-kr 'korean-iso-8bit) | 44 (define-coding-system-alias 'euc-kr 'korean-iso-8bit) |
45 (define-coding-system-alias 'euc-korea 'korean-iso-8bit) | 45 (define-coding-system-alias 'euc-korea 'korean-iso-8bit) |
46 (define-coding-system-alias 'cp949 'korean-iso-8bit) | |
47 | 46 |
48 (define-coding-system 'iso-2022-kr | 47 (define-coding-system 'iso-2022-kr |
49 "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)." | 48 "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)." |
50 :coding-type 'iso-2022 | 49 :coding-type 'iso-2022 |
51 :mnemonic ?k | 50 :mnemonic ?k |
56 :mime-charset 'iso-2022-kr | 55 :mime-charset 'iso-2022-kr |
57 :suitable-for-keyboard t) | 56 :suitable-for-keyboard t) |
58 | 57 |
59 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) | 58 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) |
60 | 59 |
60 (define-coding-system 'korean-cp949 | |
61 "CP949 (Microsoft Unified Hangul Code)" | |
62 :coding-type 'charset | |
63 :mnemonic ?K | |
64 :charset-list '(ascii cp949)) | |
65 | |
66 (define-coding-system-alias 'cp949 'korean-cp949) | |
67 | |
61 (set-language-info-alist | 68 (set-language-info-alist |
62 "Korean" '((setup-function . setup-korean-environment-internal) | 69 "Korean" '((setup-function . setup-korean-environment-internal) |
63 (exit-function . exit-korean-environment) | 70 (exit-function . exit-korean-environment) |
64 (iso639-language . ko) | 71 (iso639-language . ko) |
65 (tutorial . "TUTORIAL.ko") | 72 (tutorial . "TUTORIAL.ko") |
68 (input-method . "korean-hangul") | 75 (input-method . "korean-hangul") |
69 (features korea-util) | 76 (features korea-util) |
70 (coding-priority korean-iso-8bit iso-2022-kr) | 77 (coding-priority korean-iso-8bit iso-2022-kr) |
71 (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") | 78 (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") |
72 (documentation . "\ | 79 (documentation . "\ |
73 The following key bindings are available while using Korean input methods: | 80 The following key bindings are available for controlling Korean input methods: |
74 Shift-SPC: toggle-korean-input-mthod | 81 Shift-SPC, Hangul: toggle-korean-input-method |
75 Control-F9: quail-hangul-switch-symbol-ksc | 82 Control-F9: quail-hangul-switch-symbol-ksc |
76 F9: quail-hangul-switch-hanja") | 83 F9: quail-hangul-switch-hanja |
84 and the following key bindings are available within Korean input methods: | |
85 F9, Hangul_Hanja: hangul-to-hanja-conversion") | |
77 )) | 86 )) |
78 | 87 |
79 (provide 'korean) | 88 (provide 'korean) |
80 | 89 |
81 ;; arch-tag: ca7c7348-5ca3-4623-887a-7fd33d725d0e | 90 ;; arch-tag: ca7c7348-5ca3-4623-887a-7fd33d725d0e |