Mercurial > emacs

comparison lisp/language/korean.el @ 103468:2b8f8bb24ec9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
("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