From: tomo <tomo>
Date: Mon, 17 Feb 2003 12:34:50 +0000 (+0000)
Subject: (ucs-big5): New coded-charset when `utf-2000' is provided; it was
X-Git-Tag: r21-4-10-utf-2000-0_20-8~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6d225f0f18753ba1be0f35ddd3902837a2d638c5;p=chise%2Fxemacs-chise.git

(ucs-big5): New coded-charset when `utf-2000' is provided; it was
defined as a builtin coded-charset.
(ideograph-gt): Likewise.
---

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"