diff options
| author | Chong Yidong <[email protected]> | 2009-06-18 17:53:33 +0000 |
|---|---|---|
| committer | Chong Yidong <[email protected]> | 2009-06-18 17:53:33 +0000 |
| commit | edfe155bc267b182b4d7aead7758cbf5581782cd (patch) | |
| tree | 91a05ecc1819035ae89f2d7beff5d2c365fffb58 | |
| parent | f91e331380fd468cacc383c449c5711b3547c244 (diff) | |
* language/korean.el (korean-cp949): New coding system. Set cp949
as an alias to it.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/language/korean.el | 9 |
2 files changed, 13 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1b55b59d4b..e120ee6119 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-06-18 Kenichi Handa <[email protected]> + + * language/korean.el (korean-cp949): New coding system. Set cp949 + as an alias to it. + 2009-06-18 Ulrich Mueller <[email protected]> * pgg-gpg.el (pgg-gpg-lookup-key-owner): Handle colon listings diff --git a/lisp/language/korean.el b/lisp/language/korean.el index 2a1c96c975..e8e78bfc47 100644 --- a/lisp/language/korean.el +++ b/lisp/language/korean.el @@ -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) |