(BUCS+7522): New abstract node.

(A-J0-305B): Add `<-denotational' for BUCS+7522.
(U+7523-itaiji-002): New character; add `<-denotational' for
BUCS+7522; add `<-formed' for U+7523 and U+7522.

diff --git a/lisp/utf-2000/Ideograph-R100-Life.el b/lisp/utf-2000/Ideograph-R100-Life.el
index 07d235e..5cfedeb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R100-Life.el
+++ b/lisp/utf-2000/Ideograph-R100-Life.el
@@ -222,6 +222,15 @@
   '((ideographic-radical . 100)        ; ⽣
     (ideographic-strokes . 6)
     (total-strokes      . 11)
+    (==>ucs@bucs       . #x7522)       ; &BUCS+7522;
+    ))
+(define-char
+  '((<-denotational
+     ((==>ucs@bucs       . #x7522)     ; &BUCS+7522;
+      ))
+    (ideographic-radical . 100)        ; ⽣
+    (ideographic-strokes . 6)
+    (total-strokes      . 11)
     (=>jis-x0208       . #x3B3A)       ; &J97-3B3A; [27-26]
     (=>jis-x0213-1     . #x3B3A)       ; &J97-3B3A; [27-26]
     ))
@@ -258,6 +267,28 @@
     ))
 (define-char
   '((<-denotational
+     ((==>ucs@bucs       . #x7522)     ; &BUCS+7522;
+      ))
+    (ideographic-radical . 100)        ; ⽣
+    (ideographic-strokes . 5)
+    (total-strokes      . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x7ACB)     ; 立
+      )
+     ((=ucs              . #x9FB6)     ; 龶
+      ))
+    (=ucs-itaiji-002   . #x7523)       ; &U-i002+7523;
+    (<-formed
+     ((=ucs              . #x7523)     ; 産
+      )
+     ((=ucs              . #x7522)     ; 產
+      ))
+    ))
+(define-char
+  '((<-denotational
      ((=>jis-x0208       . #x3B3A)     ; &J97-3B3A; [27-26]
       ))
     (ideographic-radical . 100)        ; ⽣