Mercurial > emacs
comparison lisp/language/korean.el @ 103477:6e845b9ff9bc
* 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) |