Mercurial > emacs

changeset 103439:7e53d41ab95b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add cp949-2-byte, cp949.
author Kenichi Handa <handa@m17n.org>
date Tue, 16 Jun 2009 00:55:12 +0000
parents 1c132a5638bc
children 1bddb7afc319
files lisp/international/mule-conf.el
diffstat 1 files changed, 13 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-conf.el	Tue Jun 16 00:48:34 2009 +0000
+++ b/lisp/international/mule-conf.el	Tue Jun 16 00:55:12 2009 +0000
@@ -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"