(A-U+2008B-itaiji-002): New character; use `<-subsumptive' for

U-0002008B; unify A-U+2008B-itaiji-003.
(U+2008B-itaiji-002): Use A-U+2008B-itaiji-002 instead of U-0002008B
as its mother.
(U+2008B-itaiji-003): New character; use `<-subsumptive' for
A-U+2008B-itaiji-002.

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index d90738e..ae6d841 100644 (file)
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -1873,9 +1873,18 @@
        )
        ((=ucs              . #x4E00)   ; 一
        ))
-      (=ucs-itaiji-002   . #x2008B)    ; &U-i002+2008B;
+      (=>ucs-itaiji-002          . #x2008B)    ; &A-U-i002+2008B;
+      (=>ucs-itaiji-003          . #x2008B)    ; &A-U-i002+2008B;
       (->subsumptive
-       ((==ucs-itaiji-002   . #x2008B) ; &g2-U-i002+2008B;
+       ((=ucs-itaiji-002    . #x2008B) ; &U-i002+2008B;
+       (->subsumptive
+        ((==ucs-itaiji-002   . #x2008B)        ; &g2-U-i002+2008B;
+         ))
+       )
+       ((=ucs-itaiji-003    . #x2008B) ; &U-i003+2008B;
+       (->subsumptive
+        ((==ucs-itaiji-003   . #x2008B)        ; &g2-U-i003+2008B;
+         ))
        ))
       ))
     ))