From: tomo <tomo>
Date: Fri, 20 Dec 2002 06:47:28 +0000 (+0000)
Subject: (ideograph-gt-k): New coded-charset in UTF-2000.
X-Git-Tag: r21-4-10-utf-2000-0_19-pdump~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c77de26272e9d305ede1dbbdc6a3675c2faabb82;p=chise%2Fxemacs-chise.git-

(ideograph-gt-k): New coded-charset in UTF-2000.
(ideograph-gt-pj-k1): Likewise.
(ideograph-gt-pj-k2): Likewise.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 2cbe155..9bc5c62 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -187,6 +187,39 @@
 	       mother chinese-big5
 	       min-code #x8140 max-code #x8DFE))
   (make-charset
+   'ideograph-gt-k
+   "GT parts"
+   `(long-name "Ideographic parts of GT"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry ""
+	       min-code ,(lsh #x6110 16)
+	       max-code ,(+ (lsh #x6110 16) 17090)
+	       code-offset ,(lsh #x6110 16)))
+  (make-charset
+   'ideograph-gt-pj-k1
+   "GT K1"
+   `(long-name "Ideographic parts of GT (pseudo JIS encoding) part 1"
+	       chars 94
+	       dimension 2
+	       columns 2
+	       graphic 0
+	       direction l2r
+	       registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
+  (make-charset
+   'ideograph-gt-pj-k2
+   "GT K2"
+   `(long-name "Ideographic parts of GT (pseudo JIS encoding) part 2"
+	       chars 94
+	       dimension 2
+	       columns 2
+	       graphic 0
+	       direction l2r
+	       registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
+  (make-charset
    'china3-jef
    "JEF + CHINA3"
    `(long-name "JEF + CHINA3 private characters"