(A-BC-8B72): New abstract node.

(BC-8B72-itaiji-002): New character; use `<-denotational' for
A-BC-8B72.
(BC-8B72): Add `<-denotational' for A-BC-8B72.

diff --git a/lisp/utf-2000/Ideograph-R099-Sweet.el b/lisp/utf-2000/Ideograph-R099-Sweet.el
index c3c617c..dbedaa9 100644 (file)
--- a/lisp/utf-2000/Ideograph-R099-Sweet.el
+++ b/lisp/utf-2000/Ideograph-R099-Sweet.el
@@ -245,6 +245,32 @@
   '((ideographic-radical . 99) ; ⽢
     (ideographic-strokes . 1)
     (total-strokes      . 6)
+    (=>big5-cdp                . #x8B72)       ; &A-CDP-8B72;
+    ))
+(define-char
+  '((<-denotational
+     ((=>big5-cdp        . #x8B72)     ; &A-CDP-8B72;
+      ))
+    (ideographic-radical . 99) ; ⽢
+    (ideographic-strokes . 1)
+    (total-strokes      . 6)
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x7518)     ; 甘
+      )
+     ((=ucs              . #x4E00)     ; 一
+      ))
+    (=big5-cdp-itaiji-002 . #x8B72)    ; &CDP-i002-8B72;
+    ))
+(define-char
+  '((<-denotational
+     ((=>big5-cdp        . #x8B72)     ; &A-CDP-8B72;
+      ))
+    (ideographic-radical . 99) ; ⽢
+    (ideographic-strokes . 1)
+    (total-strokes      . 6)
     (ideographic-structure@apparent
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱