(BC-85E4-var-001): Use A-BC-85E4 instead of A-cgnU+200A1 as its
authorMORIOKA Tomohiko <tomo.git@chise.org>
Fri, 1 Jun 2018 01:48:30 +0000 (10:48 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Fri, 1 Jun 2018 01:48:30 +0000 (10:48 +0900)
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.

lisp/utf-2000/Ideograph-R004-Slash.el

index b049bbe..d9a5209 100644 (file)
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component   . #x200A1)    ; &A-compU+200A1;
+     ((=>big5-cdp        . #x85E4)     ; &A-CDP-85E4;
       ))
     (ideographic-radical . 4)  ; ⼃
     (ideographic-strokes . 6)
     (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)     ; ⿲
     (=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)
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component   . #x200A1)    ; &A-compU+200A1;
+     ((=>ucs-itaiji-001          . #x200A1)    ; &A-U-i001+200A1;
       ))
     (ideographic-radical . 4)  ; ⼃
     (ideographic-strokes . 6)