From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 9 Mar 2017 16:46:58 +0000 (+0900)
Subject: (=>ucs-itaiji-002): Use `=ucs-itaiji-002' instead of `=ucs' as its
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d662969008659335e5c60133e8556569f6ed1344;p=chise%2Fxemacs-chise.git.1

(=>ucs-itaiji-002): Use `=ucs-itaiji-002' instead of `=ucs' as its
mother.
(==ucs-itaiji-002): New coded-charset for XEmacs CHISE.
(==ucs-bmp-itaiji-002): Ditto.
(==ucs-itaiji-003): Ditto.
(==ucs-bmp-itaiji-003): Ditto.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 2909877..2bff9e6 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -4582,7 +4582,7 @@
 		  graphic	2
 		  direction	l2r
                   ;; =>iso-ir	177
-		  mother	=ucs))
+		  mother	=ucs-itaiji-002))
   (make-charset '=>ucs-bmp-itaiji-002
 		"uXXXX-itaiji-002's abstract characters in BMP"
 		'(long-name	"UCS-BMP-itaiji-002 characters"
@@ -4607,6 +4607,29 @@
 		  mother	=>ucs-itaiji-002
 		  min-code #x20000 max-code #x2FFFF
 		  registry "ucs00\\.itaiji002-2"))
+  (make-charset '==ucs-itaiji-002
+		"Abstract glyph-forms corresponding with uXXXX-itaiji-002 of GlyphWiki"
+		'(long-name	"UCS-itaiji-002"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs-itaiji-002))
+  (make-charset '==ucs-bmp-itaiji-002
+		"uXXXX-itaiji-002's abstract glyph-forms in BMP"
+		'(long-name	"UCS-BMP-itaiji-002 characters"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	==ucs-itaiji-002
+		  min-code #x2E00
+		  max-code #x9FCC
+		  registry "ucs\\.itaiji002-0"))
 
   (make-charset '=ucs-itaiji-003
 		"uXXXX-itaiji-003 glyphs of GlyphWiki"
@@ -4642,6 +4665,30 @@
 		  mother	=ucs-itaiji-003
 		  min-code #x20000 max-code #x2FFFF
 		  registry "ucs00\\.itaiji003-2"))
+  (make-charset '==ucs-itaiji-003
+		"Abstract glyph-forms corresponding with uXXXX-itaiji-003 of GlyphWiki"
+		'(long-name	"UCS-itaiji-003"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs-itaiji-003))
+  (make-charset '==ucs-bmp-itaiji-003
+		"uXXXX-itaiji-003's abstract glyph-forms in BMP"
+		'(long-name	"UCS-BMP-itaiji-003 characters"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	==ucs-itaiji-003
+		  min-code #x2E00
+		  max-code #x9FCC
+		  registry "ucs\\.itaiji003-0"))
+
   (make-charset '=ucs-itaiji-004
 		"uXXXX-itaiji-004 glyphs of GlyphWiki"
 		'(long-name	"UCS-itaiji-004"