From a2ead21a059d7226776c74ad0d6ca4e2ec43b00f Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 18 Feb 2003 03:52:52 +0000
Subject: [PATCH] Sync up with r21-4-10-utf-2000-0_20-8.

---
 lisp/ChangeLog         |    6 ++++++
 lisp/mule/mule-conf.el |   23 +++++++++++++++++++++++
 2 files changed, 29 insertions(+)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee6e683..b1f999f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-02-17  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+	* mule/mule-conf.el (ucs-big5): New coded-charset when `utf-2000'
+	is provided; it was defined as a builtin coded-charset.
+	(ideograph-gt): Likewise.
+
 2003-02-16  MORIOKA Tomohiko  <tomo@mousai.as.wakwak.ne.jp>
 
 	* mule/mule-conf.el (=gt-k): Renamed from `ideograph-gt-k'.
diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 7fe82a0..62a3aa6 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -157,6 +157,16 @@
 		  graphic	2
 		  direction	l2r
 		  mother	ucs-jis))
+  (make-charset 'ucs-big5
+		"UCS for Big5"
+		`(long-name	"ISO/IEC 10646 for Big5"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	ucs))
+
   (make-charset '=big5-pua
 		"Big5-PUA"
 		`(long-name	"Big5 with private used area"
@@ -218,6 +228,19 @@
 		  min-code	#x8140
 		  max-code	#x8DFE))
   (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
+
+  (make-charset 'ideograph-gt
+		"GT"
+		`(long-name	"GT 2000"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  registry	""
+		  min-code	,(lsh #x6100 16)
+		  max-code	,(+ (lsh #x6100 16) 67547)
+		  code-offset	,(lsh #x6100 16)))
   (make-charset '=gt-k
 		"GT parts"
 		`(long-name	"Ideographic parts of GT"
-- 
1.7.10.4