From: tomo <tomo>
Date: Wed, 28 Apr 2010 10:06:01 +0000 (+0000)
Subject: (=ucs@big5): Use `=>>ucs@unicode' instead of `=ucs@unicode' as the
X-Git-Tag: r21-4-22-chise-0_24-aj1-bc^20~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6ab092fca582fcec1dfae428923b5783668c5f4f;p=chise%2Fxemacs-chise.git

(=ucs@big5): Use `=>>ucs@unicode' instead of `=ucs@unicode' as the
mother.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index e620898..0e30a04 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -947,48 +947,48 @@
 		  mother	=ucs@ks
 		  min-code	#x0000
 		  max-code	#xFFFF))
-  (make-charset '=ucs@big5
-		"ISO/IEC 10646 for Big5"
-		'(long-name	"UCS for Big5"
+  (make-charset '=ucs@cns11643
+		"ISO/IEC 10646 for CNS based on www.cns11643.gov.tw"
+		'(long-name	"UCS for CNS11643"
 		  chars		256
 		  dimension	3
 		  columns	2
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=ucs@unicode))
-  (define-charset-alias 'ucs-big5 '=ucs@big5)
-  (make-charset '=ucs@big5/cns11643
-		"ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"
-		'(long-name	"UCS for Big5@CNS11643"
+		  mother	=ucs@cns))
+
+  (make-charset '=>>ucs@unicode
+		"Representative abstract glyphs of Unicode"
+		'(long-name	"Unicode abstract glyphs"
 		  chars		256
 		  dimension	3
 		  columns	2
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=ucs@big5))
-  (make-charset '=ucs@cns11643
-		"ISO/IEC 10646 for CNS based on www.cns11643.gov.tw"
-		'(long-name	"UCS for CNS11643"
+		  mother	=ucs@unicode))
+  (make-charset '=ucs@big5
+		"ISO/IEC 10646 for Big5"
+		'(long-name	"UCS for Big5"
 		  chars		256
 		  dimension	3
 		  columns	2
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=ucs@cns))
-
-  (make-charset '=>>ucs@unicode
-		"Representative abstract glyphs of Unicode"
-		'(long-name	"Unicode abstract glyphs"
+		  mother	=>>ucs@unicode))
+  (define-charset-alias 'ucs-big5 '=ucs@big5)
+  (make-charset '=ucs@big5/cns11643
+		"ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"
+		'(long-name	"UCS for Big5@CNS11643"
 		  chars		256
 		  dimension	3
 		  columns	2
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-		  mother	=ucs@unicode))
+		  mother	=ucs@big5))
 
   (make-charset
    '=ucs-radicals