From 7a33575176f7e0b9ca40c60815621792b45f31c9 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 22 Dec 2002 15:30:06 +0000
Subject: [PATCH] (ideograph-gt-k): New coded-charset in UTF-2000.
 (ideograph-gt-pj-k1): Likewise. (ideograph-gt-pj-k2):
 Likewise.

---
 lisp/mule/mule-conf.el |   33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

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"
-- 
1.7.10.4