# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1245347613 0
# Node ID 6e845b9ff9bcd22a3ed421d0b987423b902c7ffc
# Parent  25b1ef6821e27f15260b1608de3d13020a5a959b
* language/korean.el (korean-cp949): New coding system.  Set cp949
as an alias to it.

diff -r 25b1ef6821e2 -r 6e845b9ff9bc lisp/ChangeLog
--- 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
diff -r 25b1ef6821e2 -r 6e845b9ff9bc lisp/language/korean.el
--- 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)