From: Kenichi Handa <handa@m17n.org>
Date: Tue, 16 Jun 2009 00:56:02 +0000 (+0000)
Subject: Add cp949-2-byte, cp949.
X-Git-Tag: emacs-pretest-23.0.95~43
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8e98fdb17423dcef3812968f751569152650f77;p=emacs.git

Add cp949-2-byte, cp949.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8068e0d72eb..74c3b626861 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-06-16  Eduard Wiebe  <usenet@pusto.de>  (tiny change)
+
+	* international/mule-conf.el: Add cp949-2-byte, cp949.
+
 2009-06-16  Kenichi Handa  <handa@m17n.org>
 
 	* composite.el (compose-region): Improve the docstring.
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index 8bd9301e1b7..f8cfa09e612 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -486,7 +486,19 @@
   :code-offset #x27c218			; ... #x280839
   :unify-map "BIG5-HKSCS")
 
-;; Fixme: Korean cp949/UHC
+(define-charset 'cp949-2-byte
+  "2-byte part of CP949"
+  :dimension 2
+  :map "CP949-2BYTE"
+  :code-space [#x41 #xFE #x81 #xFD]
+  :supplementary-p t)
+
+(define-charset 'cp949
+  "CP949 (Korean)"
+  :short-name "CP949"
+  :long-name  "CP949 (Korean)"
+  :code-space [#x00 #xFE #x00 #xFD]
+  :superset '(ascii cp949-2-byte))
 
 (define-charset 'chinese-sisheng
   "SiSheng characters for PinYin/ZhuYin"