From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 1 Jun 2018 01:48:30 +0000 (+0900)
Subject: (BC-85E4-var-001): Use A-BC-85E4 instead of A-cgnU+200A1 as its
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=commitdiff_plain;h=f94fbd3020e40c3685853c905014f2ae310b02c7

(BC-85E4-var-001): Use A-BC-85E4 instead of A-cgnU+200A1 as its
mother.
(A-BC-85E4): New abstract node; use `<-denotational' for A-cgnU+200A1
as its mother.
(A-U+200A1-itaiji-001): New abstract node; use `<-denotational' for
A-BC-85E4 as its mother.
(U+200A1-itaiji-001): New character; use `<-denotational' for
A-U+200A1-itaiji-001 as its mother.
(BC-85E4): Use A-U+200A1-itaiji-001 instead of A-cgnU+200A1 as its
mother.
---

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index b049bbe..d9a5209 100644
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -3024,7 +3024,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x200A1)	; &A-compU+200A1;
+     ((=>big5-cdp	  . #x85E4)	; &A-CDP-85E4;
       ))
     (ideographic-radical . 4)	; ⼃
     (ideographic-strokes . 6)
@@ -3047,6 +3047,15 @@
     (ideographic-radical . 4)	; ⼃
     (ideographic-strokes . 6)
     (total-strokes	 . 7)
+    (=>big5-cdp		. #x85E4)	; &A-CDP-85E4;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@component	  . #x200A1)	; &A-compU+200A1;
+      ))
+    (ideographic-radical . 4)	; ⼃
+    (ideographic-strokes . 6)
+    (total-strokes	 . 7)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO MIDDLE AND RIGHT")
       (=ucs		  . #x2FF2)	; ⿲
@@ -3061,6 +3070,27 @@
     (=big5-cdp-var-001	. #x85F3)	; &CDP-v001-85F3;
     ))
 (define-char
+  '((<-denotational
+     ((=>big5-cdp	  . #x85E4)	; &A-CDP-85E4;
+      ))
+    (ideographic-radical . 4)	; ⼃
+    (ideographic-strokes . 6)
+    (total-strokes	 . 7)
+    (=>ucs-itaiji-001	. #x200A1)	; &A-U-i001+200A1;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-001	  . #x200A1)	; &A-U-i001+200A1;
+      ))
+    (ideographic-radical . 4)	; ⼃
+    (ideographic-strokes . 6)
+    (total-strokes	 . 7)
+    (=ucs-itaiji-001	. #x200A1)	; &U-i001+200A1;
+    (->subsumptive
+     ((==ucs-itaiji-001	  . #x200A1)	; &g2-U-i001+200A1;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 4)	; ⼃
     (ideographic-strokes . 6)
     (total-strokes	 . 7)
@@ -3069,7 +3099,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x200A1)	; &A-compU+200A1;
+     ((=>ucs-itaiji-001	  . #x200A1)	; &A-U-i001+200A1;
       ))
     (ideographic-radical . 4)	; ⼃
     (ideographic-strokes . 6)