Mercurial > emacs

comparison lisp/language/korean.el @ 103477:6e845b9ff9bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* language/korean.el (korean-cp949): New coding system. Set cp949 as an alias to it.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 18 Jun 2009 17:53:33 +0000
parents 702e3f83e52f
children 832dbf5214bc
comparison
equal deleted inserted replaced
103476:25b1ef6821e2 103477:6e845b9ff9bc
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
55 :charset-list '(ascii korean-ksc5601) 54 :charset-list '(ascii korean-ksc5601)
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)
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)
60 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)