(A-MJ058016): New abstract node; use `<-denotational' for U+722F.

(U+722F-itaiji-001): New character; use `<-denotational' for
A-MJ058016.
(MJ058016): Use A-MJ058016 instead of U+722F as the mother.

diff --git a/lisp/utf-2000/Ideograph-R087-Claw.el b/lisp/utf-2000/Ideograph-R087-Claw.el
index b33d29d..26e53b6 100644 (file)
--- a/lisp/utf-2000/Ideograph-R087-Claw.el
+++ b/lisp/utf-2000/Ideograph-R087-Claw.el
@@ -723,6 +723,32 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
       )
+     ((=ucs              . #x722B)     ; 爫
+      )
+     ((=>mj              . 057001)     ; &A-MJ057001;
+      ))
+    (=>mj              . 058016)       ; &A-MJ058016;
+    ))
+(define-char
+  '((<-denotational
+     ((=>mj              . 058016)     ; &A-MJ058016;
+      ))
+    (ideographic-radical . 87) ; ⽖
+    (ideographic-strokes . 5)
+    (total-strokes      . 9)
+    (=ucs-itaiji-001   . #x722F)       ; &U-i001+722F;
+    ))
+(define-char
+  '((<-denotational
+     ((=>mj              . 058016)     ; &A-MJ058016;
+      ))
+    (ideographic-radical . 87) ; ⽖
+    (ideographic-strokes . 5)
+    (total-strokes      . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
      ((name              . "CJK RADICAL PAW ONE")
       (=ucs              . #x2EA4)     ; ⺤
       )