From: tomo <tomo>
Date: Wed, 9 Mar 2011 21:11:20 +0000 (+0000)
Subject: (=>>>gt): New coded-charset for XEmacs CHISE.
X-Git-Tag: r21-4-22-chise-0_25-6^20~157
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8b16e962e879ce68ef7605f34c247403e659bd9f;p=chise%2Fxemacs-chise.git.1

(=>>>gt): New coded-charset for XEmacs CHISE.
(=>>gt): Use `=>>>gt' instead of `=gt' as the mother.
(=>>>ucs@jis/2000): New coded-charset for XEmacs CHISE.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 3953ccb..d41dfe8 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -630,6 +630,15 @@
 		  max-code	,(+ (lsh #x6100 16) 67547)
 		  code-offset	,(lsh #x6100 16)))
   (define-charset-alias 'ideograph-gt '=gt)
+  (make-charset '=>>>gt
+		"GT 2000 abstract glyph-forms"
+		'(long-name	"GT abstract glyph-forms"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=gt))
   (make-charset '=>>gt
 		"GT 2000 abstract glyphs"
 		'(long-name	"GT abstract glyphs"
@@ -638,7 +647,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  mother	=gt))
+		  mother	=>>>gt))
   (define-charset-alias '<=>gt '=>>gt)
   (define-charset-alias '<==>gt '=>>gt)
   (make-charset '=>gt
@@ -1217,6 +1226,16 @@
 		  direction	l2r
 		  =>iso-ir	177
 		  mother	=>>>ucs@jis))
+  (make-charset '=>>>ucs@jis/2000
+		"UCS Representative glyph-forms for JIS X 0213:2000"
+		'(long-name	"UCS glyph-forms for JIS:2000"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>>ucs@jis))
   (make-charset '=>>>ucs@jis/2004
 		"UCS Representative glyph-forms for JIS X 0213:2004"
 		'(long-name	"UCS glyph-forms for JIS:2004"