From: tomo <tomo>
Date: Sun, 27 Feb 2011 04:05:14 +0000 (+0000)
Subject: (=>>jis-x0213-1@2004): Use `=>>jis-x0213-1' instead of
X-Git-Tag: r21-4-22-chise-0_25-6^20~386
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e8fc45e4021c8ca52c22fd4e75f948f5ace694d9;p=chise%2Fxemacs-chise.git.1

(=>>jis-x0213-1@2004): Use `=>>jis-x0213-1' instead of
`=>>>jis-x0213-1@2004' as the mother.
(=>>>ucs@iso): New coded-charset for XEmacs CHISE.
(=>>>ucs@unicode): Likewise.
(=>>>ucs@jis): Likewise.
(=ucs@iso): Use `=>>>ucs@iso' instead of `=>>ucs@iso' as the mother.
(=>>hanyo-denshi/ks): Fix `chars' and `dimension'.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 8a43a97..87f2a01 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -422,7 +422,7 @@
    '(registry "jisx0213\\(\\.2004\\)-1"
 	      dimension 2
 	      chars 94
-	      mother =>>>jis-x0213-1@2004
+	      mother =>>jis-x0213-1
 	      =>iso-ir 233
               ;; final ?Q
 	      graphic 0
@@ -1029,8 +1029,8 @@
 		  mother	=>ucs@unicode))
 
   (make-charset '=>>ucs@iso
-		"Representative abstract glyphs of ISO/IEC 10646"
-		'(long-name	"UCS glyphs for UCS"
+		"Representative abstract-glyphs of ISO/IEC 10646"
+		'(long-name	"UCS abstract glyphs for UCS"
 		  chars		256
 		  dimension	3
 		  columns	2
@@ -1039,7 +1039,7 @@
 		  =>iso-ir	177
 		  mother	=>ucs@iso))
   (make-charset '=>>ucs@unicode
-		"Representative abstract glyphs of Unicode"
+		"Representative abstract-glyphs of Unicode"
 		'(long-name	"Unicode abstract glyphs"
 		  chars		256
 		  dimension	3
@@ -1049,8 +1049,8 @@
 		  =>iso-ir	177
 		  mother	=>>ucs@iso))
   (make-charset '=>>ucs@jis
-		"UCS Representative glyphs for JIS X0208/0212/0213"
-		'(long-name	"UCS glyphs for JIS"
+		"UCS Representative abstract-glyphs for JIS X0208/0212/0213"
+		'(long-name	"UCS abstract glyphs for JIS"
 		  chars		256
 		  dimension	3
 		  columns	2
@@ -1109,6 +1109,37 @@
 		  =>iso-ir	177
 		  mother	=>>ucs@unicode))
 
+  (make-charset '=>>>ucs@iso
+		"Representative glyphs of ISO/IEC 10646"
+		'(long-name	"UCS glyphs for UCS"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>ucs@iso))
+  (make-charset '=>>>ucs@unicode
+		"Representative glyphs of Unicode"
+		'(long-name	"UCS glyphs for Unicode"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>>ucs@iso))
+  (make-charset '=>>>ucs@jis
+		"UCS Representative glyphs for JIS X0208/0212/0213"
+		'(long-name	"UCS glyphs for JIS"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>>ucs@unicode))
+
   (make-charset '=ucs@iso
 		"ISO/IEC 10646 for its representative glyphs"
 		'(long-name	"UCS for ISO"
@@ -1118,7 +1149,7 @@
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=>>ucs@iso))
+		  mother	=>>>ucs@iso))
   (make-charset '=ucs@unicode
 		"Unicode for its representative glyphs"
 		'(long-name	"UCS for Unicode"
@@ -1716,8 +1747,8 @@
    '=>>hanyo-denshi/ks
    "Han'you-Denshi/KS abstract glyphs"
    '(long-name "Han'you-Denshi/KS glyphs"
-	       chars 94
-	       dimension 2
+	       chars 256
+	       dimension 3
 	       columns 2
 	       graphic 2
 	       direction l2r