From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 21 Sep 2017 18:06:23 +0000 (+0900)
Subject: (=>ucs@cognate): New coded-charset for XEmacs CHISE.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=160e6cd8c4cef85e4fcf9c05b04311ae31427f78;p=chise%2Fxemacs-chise.git-

(=>ucs@cognate): New coded-charset for XEmacs CHISE.
(=>ucs@hanyo-denshi): Abolished.
(=>ucs-itaiji-009): New coded-charset for XEmacs CHISE.
(=>ucs-bmp-itaiji-009): Ditto.
(=>ucs-sip@cognate): Ditto.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 67015c6..c1e129b 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -3577,9 +3577,9 @@
 		  =>iso-ir	177
 		  mother	=ucs))
 
-  (make-charset '=>ucs@component
-		"UCS encoding for abstract components of IWDS-1."
-		'(long-name	"UCS for IWDS-1 abstract components"
+  (make-charset '=>ucs@cognate
+		"UCS abstract characters based on cognate."
+		'(long-name	"UCS based on cognate"
 		  chars		256
 		  dimension	3
 		  columns	2
@@ -3588,9 +3588,9 @@
 		  =>iso-ir	177
 		  mother	=ucs))
 
-  (make-charset '=>ucs@hanyo-denshi
-		"UCS abstract characters based on Han'you-Denshi collection."
-		'(long-name	"UCS base characters of Han'you-Denshi"
+  (make-charset '=>ucs@component
+		"UCS encoding for abstract components of IWDS-1."
+		'(long-name	"UCS for IWDS-1 abstract components"
 		  chars		256
 		  dimension	3
 		  columns	2
@@ -3599,6 +3599,17 @@
 		  =>iso-ir	177
 		  mother	=ucs))
 
+  ;; (make-charset '=>ucs@hanyo-denshi
+  ;;               "UCS abstract characters based on Han'you-Denshi collection."
+  ;;               '(long-name     "UCS base characters of Han'you-Denshi"
+  ;;                 chars         256
+  ;;                 dimension     3
+  ;;                 columns       2
+  ;;                 graphic       2
+  ;;                 direction     l2r
+  ;;                 =>iso-ir      177
+  ;;                 mother        =ucs))
+
   (make-charset '=>ucs@iso
 		"Abstract characters of ISO/IEC 10646 representatives"
 		'(long-name	"UCS characters for ISO"
@@ -5116,6 +5127,29 @@
 		  min-code #x2E00
 		  max-code #x9FCC
 		  registry "ucs\\.itaiji009-0"))
+  (make-charset '=>ucs-itaiji-009
+		"Abstract characters corresponding with uXXXX-itaiji-009 of GlyphWiki"
+		'(long-name	"UCS-itaiji-009"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs))
+  (make-charset '=>ucs-bmp-itaiji-009
+		"uXXXX-itaiji-009's abstract characters in BMP"
+		'(long-name	"UCS-BMP-itaiji-009 characters"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=>ucs-itaiji-009
+		  min-code #x2E00
+		  max-code #x9FCC
+		  registry "ucs\\.itaiji009-0"))
 
   (make-charset '=ucs-itaiji-010
 		"uXXXX-itaiji-010 glyphs of GlyphWiki"
@@ -5585,6 +5619,19 @@
 	       min-code #x20000 max-code #x2FFFF
 	       code-offset #x20000))
   (make-charset
+   '=>ucs-sip@cognate
+   "CJK Characters in SIP for abstract characters based on cognate."
+   '(long-name "CJK in SIP@cognate"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "ucs00-2$"
+	       mother =>ucs@cognate
+	       min-code #x20000 max-code #x2FFFF
+	       code-offset #x20000))
+  (make-charset
    '=>ucs-sip@component
    "CJK Characters in SIP for IWDS-1 abstract components."
    '(long-name "CJK in SIP@component"