(BUCS+74DC): New abstract character.

(U+74DC): Add `<-denotational' for BUCS+74DC.
(U-000244F0): New character; use `<-denotational' for BUCS+74DC; unify
BC-88A3; add HNG-KAR1077-0.
(U+74E2): Separate A-UU+74E2.
(A-UU+74E2): Add `=>ucs@iwds-1'.
(HNG-KAR0244-0): New character; use `<-denotational' for U+74E2.

diff --git a/lisp/utf-2000/Ideograph-R097-Melon.el b/lisp/utf-2000/Ideograph-R097-Melon.el
index e6414f6..6d0d88e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R097-Melon.el
+++ b/lisp/utf-2000/Ideograph-R097-Melon.el
@@ -2,6 +2,14 @@
 (define-char
   '((ideographic-radical . 97) ; ⽠
     (ideographic-strokes . 0)
+    (==>ucs@bucs       . #x74DC)       ; &BUCS+74DC;
+    ))
+(define-char
+  '((<-denotational
+     ((==>ucs@bucs       . #x74DC)     ; &BUCS+74DC;
+      ))
+    (ideographic-radical . 97) ; ⽠
+    (ideographic-strokes . 0)
     (total-strokes      . 5)
     (=ucs              . #x74DC)       ; 瓜
     (=big5             . #xA5CA)       ; &I-B-A5CA;
@@ -73,6 +81,30 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((==>ucs@bucs       . #x74DC)     ; &BUCS+74DC;
+      ))
+    (ideographic-radical . 97) ; ⽠
+    (ideographic-strokes . 0)
+    (total-strokes      . 4)
+    (=ucs              . #x244F0)      ; 𤓰
+    (=big5-cdp         . #x88A3)       ; &I-CDP-88A3;
+    (->subsumptive
+     ((==ucs@iso         . #x244F0)    ; &g2-CDP-88A3;
+      (==big5-cdp        . #x88A3)     ; &g2-CDP-88A3;
+      (->subsumptive
+       ((===ucs@iso        . #x244F0)  ; &R-U-000244F0;
+       )
+       ((===big5-cdp       . #x88A3)   ; &R-CDP-88A3;
+       )
+       ((===hng-kar        . 10770)    ; &HNG018-10770;
+       (<-formed
+        ((=ucs               . #x74DC) ; 瓜
+         ))
+       ))
+      ))
+    ))
+(define-char
   '((ideographic-radical . 97) ; ⽠
     (ideographic-strokes . 3)
     (total-strokes      . 8)
@@ -771,11 +803,9 @@
       )
      ((=ucs              . #x7968)     ; 票
       )
-     ((=ucs              . #x74DC)     ; 瓜
+     ((==>ucs@bucs       . #x74DC)     ; &BUCS+74DC;
       ))
     (=ucs              . #x74E2)       ; 瓢
-    (=>jis-x0208       . #x493B)       ; 瓢 [41-27]
-    (=>jis-x0213-1     . #x493B)       ; 瓢 [41-27]
     ))
 (define-char
   '((<-denotational
@@ -788,6 +818,28 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs              . #x2FF0)     ; ⿰
       )
+     ((=ucs              . #x7968)     ; 票
+      )
+     ((=ucs              . #x74DC)     ; 瓜
+      ))
+    (=>ucs@iwds-1      . #x74E2)       ; &J97-493B;
+    (=>ucs@unicode     . #x74E2)       ; &J97-493B;
+    (=>jis-x0208       . #x493B)       ; &J97-493B; [41-27]
+    (=>jis-x0213-1     . #x493B)       ; &J97-493B; [41-27]
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@iwds-1      . #x74E2)     ; &J97-493B;
+      (=>ucs@unicode     . #x74E2)     ; &J97-493B;
+      (=>jis-x0208       . #x493B)     ; &J97-493B; [41-27]
+      ))
+    (ideographic-radical . 97) ; ⽠
+    (ideographic-strokes . 11)
+    (total-strokes      . 16)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
      ((=ucs@unicode      . #x7968)     ; &AJ1-03502;
       (=adobe-japan1-0   . 03502)      ; &AJ1-03502;
       )
@@ -854,6 +906,23 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs              . #x74E2)     ; 瓢
+      ))
+    (ideographic-radical . 97) ; ⽠
+    (ideographic-strokes . 11)
+    (total-strokes      . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=ucs              . #x7968)     ; 票
+      )
+     ((=ucs              . #x244F0)    ; 𤓰
+      ))
+    (===hng-kar                . 02440)        ; &HNG018-02440;
+    ))
+(define-char
   '((ideographic-radical . 97) ; ⽠
     (ideographic-strokes . 11)
     (total-strokes      . 16)