From: tomo <tomo>
Date: Tue, 3 Feb 2004 16:41:07 +0000 (+0000)
Subject: (=ucs@iso): New coded-charset in XEmacs CHISE.
X-Git-Tag: r21-4-14-chise-0_21-23^2~92
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4eca6ca415aac67f5023a5ff60a2e7edbad28b53;p=chise%2Fxemacs-chise.git.1

(=ucs@iso): New coded-charset in XEmacs CHISE.
(=ucs@unicode): Likewise.
(=ucs@gb): Inherits `=ucs@unicode' instead of `=ucs'.
(=ucs@cns): Likewise.
(=ucs@jis): Likewise.
(=ucs@ks): Likewise.
(=ucs@big5): Likewise.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 2353629..b0810fc 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -389,6 +389,24 @@
 		  code-offset	#xE80000))
   (define-charset-alias 'china3-jef '=jef-china3)
 
+  (make-charset '=ucs@iso
+		"UCS for ISO"
+		`(long-name	"ISO/IEC 10646 for its representative glyphs"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=ucs))
+  (make-charset '=ucs@unicode
+		"UCS for Unicode"
+		`(long-name	"Unicode for its representative glyphs"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=ucs@iso))
   (make-charset '=ucs@gb
 		"UCS for GB"
 		`(long-name	"ISO/IEC 10646 for GB"
@@ -397,7 +415,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  mother	=ucs))
+		  mother	=ucs@unicode))
   (define-charset-alias 'ucs-gb '=ucs@gb)
   (make-charset '=ucs@cns
 		"UCS for CNS"
@@ -407,7 +425,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  mother	=ucs))
+		  mother	=ucs@unicode))
   (define-charset-alias 'ucs-cns '=ucs@cns)
   (make-charset '=ucs@jis
 		"UCS for JIS"
@@ -417,7 +435,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  mother	=ucs))
+		  mother	=ucs@unicode))
   (define-charset-alias 'ucs-jis '=ucs@jis)
   (make-charset '=ucs@jis-1990
 		"UCS for JIS:1990"
@@ -456,7 +474,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  mother	=ucs))
+		  mother	=ucs@unicode))
   (define-charset-alias 'ucs-ks '=ucs@ks)
   (make-charset '=ucs@big5
 		"UCS for Big5"
@@ -466,7 +484,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r
-		  mother	=ucs))
+		  mother	=ucs@unicode))
   (define-charset-alias 'ucs-big5 '=ucs@big5)
   )