From edfe155bc267b182b4d7aead7758cbf5581782cd Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 18 Jun 2009 17:53:33 +0000 Subject: [PATCH] * language/korean.el (korean-cp949): New coding system. Set cp949 as an alias to it. --- lisp/ChangeLog | 5 +++++ lisp/language/korean.el | 9 ++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1b55b59d4b8..e120ee61191 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-06-18 Kenichi Handa + + * language/korean.el (korean-cp949): New coding system. Set cp949 + as an alias to it. + 2009-06-18 Ulrich Mueller * pgg-gpg.el (pgg-gpg-lookup-key-owner): Handle colon listings diff --git a/lisp/language/korean.el b/lisp/language/korean.el index 2a1c96c9757..e8e78bfc47b 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) -- 2.11.4.GIT