Mercurial > emacs
changeset 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 | 25b1ef6821e2 |
| children | c5fea096e475 |
| files | lisp/ChangeLog lisp/language/korean.el |
| diffstat | 2 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jun 18 17:47:48 2009 +0000 +++ b/lisp/ChangeLog Thu Jun 18 17:53:33 2009 +0000 @@ -1,3 +1,8 @@ +2009-06-18 Kenichi Handa <handa@m17n.org> + + * language/korean.el (korean-cp949): New coding system. Set cp949 + as an alias to it. + 2009-06-18 Ulrich Mueller <ulm@gentoo.org> * pgg-gpg.el (pgg-gpg-lookup-key-owner): Handle colon listings
--- a/lisp/language/korean.el Thu Jun 18 17:47:48 2009 +0000 +++ b/lisp/language/korean.el Thu Jun 18 17:53:33 2009 +0000 @@ -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)