From e4082eeeea93d7476b3c4d802e8020cfc6274746 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 28 Oct 2011 14:19:38 +0000 Subject: [PATCH] (=+>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. --- lisp/mule/mule-conf.el | 74 ++++++++++++++++++++++++------------------------ 1 file changed, 37 insertions(+), 37 deletions(-) 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" -- 1.7.10.4