From: tomo <tomo>
Date: Fri, 28 Oct 2011 14:19:38 +0000 (+0000)
Subject: (=+>ucs@unicode): Use `=+>ucs@iso' instead of `=>ucs@unicode' as the
X-Git-Tag: r21-4-22-chise-0_25-11^20~411
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e4082eeeea93d7476b3c4d802e8020cfc6274746;p=chise%2Fxemacs-chise.git-

(=+>ucs@unicode): Use `=+>ucs@iso' instead of `=>ucs@unicode' as the
mother.
(=+>ucs@jis): Use `=+>ucs@unicode' instead of `=>ucs@jis' as the
mother.
(=+>ucs@ks): Use `=+>ucs@unicode' instead of `=>ucs@ks' as the mother.
(=+>ucs@cns): Use `=+>ucs@unicode' instead of `=>ucs@cns' as the
mother.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index e7af7de..7d4415f 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -1089,9 +1089,9 @@
 		  direction	l2r
 		  =>iso-ir	177
 		  mother	=>ucs@iso))
-  (make-charset '=+>ucs@unicode
-		"Unicode representative unified abstract glyphs"
-		'(long-name	"UCS unified abstract glyphs for Unicode"
+  (make-charset '=>ucs@jis
+		"UCS representative characters for JIS X0208/0212/0213"
+		'(long-name	"UCS characters for JIS"
 		  chars		256
 		  dimension	3
 		  columns	2
@@ -1099,9 +1099,9 @@
 		  direction	l2r
 		  =>iso-ir	177
 		  mother	=>ucs@unicode))
-  (make-charset '=>ucs@jis
-		"UCS representative characters for JIS X0208/0212/0213"
-		'(long-name	"UCS characters for JIS"
+  (make-charset '=>ucs@ks
+		"UCS representative characters for Korean Standards"
+		'(long-name	"UCS characters for KS"
 		  chars		256
 		  dimension	3
 		  columns	2
@@ -1109,79 +1109,79 @@
 		  direction	l2r
 		  =>iso-ir	177
 		  mother	=>ucs@unicode))
-  (make-charset '=+>ucs@jis
-		"UCS based on Japanese usual unification"
-		'(long-name	"UCS unified abstract glyphs for JP"
+  (make-charset '=>ucs@cns
+		"UCS representatives characters for CNS 11643 sources"
+		'(long-name	"UCS characters for CNS 11643"
 		  chars		256
 		  dimension	3
 		  columns	2
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=>ucs@jis))
-  (define-charset-alias '=>ucs@JP '=+>ucs@jis)
-  (make-charset '=+>ucs@jis/1990
-		"UCS representative characters for JIS X0208/0212:1990"
-		'(long-name	"UCS characters for JIS:1990"
+		  mother	=>ucs@unicode))
+
+  (make-charset '=+>ucs@iso
+		"UCS based on ISO/IEC 10646 representative glyphs"
+		'(long-name	"Unified abstract glyphs of UCS"
 		  chars		256
 		  dimension	3
 		  columns	2
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=+>ucs@jis))
-  (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
-  (make-charset '=>ucs@ks
-		"UCS representative characters for Korean Standards"
-		'(long-name	"UCS characters for KS"
+		  mother	=>ucs@iso))
+  (make-charset '=+>ucs@unicode
+		"Unicode representative unified abstract glyphs"
+		'(long-name	"UCS unified abstract glyphs for Unicode"
 		  chars		256
 		  dimension	3
 		  columns	2
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=>ucs@unicode))
-  (make-charset '=+>ucs@ks
-		"UCS representative unified abstract glyphs for Korean Standards"
-		'(long-name	"UCS unified abstract glyphs for KS"
+		  mother	=+>ucs@iso))
+  (make-charset '=+>ucs@jis
+		"UCS based on Japanese usual unification"
+		'(long-name	"UCS unified abstract glyphs for JP"
 		  chars		256
 		  dimension	3
 		  columns	2
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=>ucs@ks))
-  (make-charset '=>ucs@cns
-		"UCS representatives characters for CNS 11643 sources"
-		'(long-name	"UCS characters for CNS 11643"
+		  mother	=+>ucs@unicode))
+  (define-charset-alias '=>ucs@JP '=+>ucs@jis)
+  (make-charset '=+>ucs@jis/1990
+		"UCS representative characters for JIS X0208/0212:1990"
+		'(long-name	"UCS characters for JIS:1990"
 		  chars		256
 		  dimension	3
 		  columns	2
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=>ucs@unicode))
-  (make-charset '=+>ucs@cns
-		"UCS representatives unified abstract glyphs for CNS 11643 sources"
-		'(long-name	"UCS unified abstract glyphs for CNS"
+		  mother	=+>ucs@jis))
+  (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
+  (make-charset '=+>ucs@ks
+		"UCS representative unified abstract glyphs for Korean Standards"
+		'(long-name	"UCS unified abstract glyphs for KS"
 		  chars		256
 		  dimension	3
 		  columns	2
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=>ucs@cns))
-
-  (make-charset '=+>ucs@iso
-		"UCS based on ISO/IEC 10646 representative glyphs"
-		'(long-name	"Unified abstract glyphs of UCS"
+		  mother	=+>ucs@unicode))
+  (make-charset '=+>ucs@cns
+		"UCS representatives unified abstract glyphs for CNS 11643 sources"
+		'(long-name	"UCS unified abstract glyphs for CNS"
 		  chars		256
 		  dimension	3
 		  columns	2
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=>ucs@iso))
+		  mother	=+>ucs@unicode))
 
   (make-charset '=>>ucs@iso
 		"Representative abstract-glyphs of ISO/IEC 10646"