Mercurial > emacs
changeset 103472:702e3f83e52f
Cancel the unexpected changes.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 18 Jun 2009 07:21:49 +0000 |
| parents | fb1ed86c4fa8 |
| children | ae2d84ad6135 |
| files | lisp/language/korean.el |
| diffstat | 1 files changed, 1 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/korean.el Thu Jun 18 07:18:55 2009 +0000 +++ b/lisp/language/korean.el Thu Jun 18 07:21:49 2009 +0000 @@ -43,6 +43,7 @@ (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)." @@ -57,14 +58,6 @@ (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)