(U+5DE9): Use `->denotational' and `->subsumptive'.

(JSP-3C21): Unify HD-JB2801.
(GT-11004): Add `ideographic-structure'.

diff --git a/lisp/utf-2000/Ideograph-R048-Work.el b/lisp/utf-2000/Ideograph-R048-Work.el
index 1421fff..f372da6 100644 (file)
--- a/lisp/utf-2000/Ideograph-R048-Work.el
+++ b/lisp/utf-2000/Ideograph-R048-Work.el
@@ -139,37 +139,55 @@
     (=daikanwa         . 08725)        ; &I-M-08725;
     ))
 (define-char
-  '((=>ucs             . #x5DE9)       ; 巩
-    (ideographic-radical . 48) ; ⼯
+  '((ideographic-radical . 48) ; ⼯
     (ideographic-strokes . 3)
     (total-strokes      . 6)
-    (=ucs@jis          . #x5DE9)       ; &M-08726;
-    (=jis-x0212                . #x3C21)       ; &M-08726; [28-01]
-    (=jis-x0213-2      . #x286E)       ; &I-JX2-286E; [08-78]
-    (=daikanwa         . 08726)        ; &I-M-08726;
+    (=ucs              . #x5DE9)       ; 巩
     ))
 (define-char
-  '((=>ucs             . #x5DE9)       ; 巩
-    (morohashi-daikanwa        8726 0 2)
+  '((<-denotational
+     ((=ucs              . #x5DE9)     ; 巩
+      ))
     (ideographic-radical . 48) ; ⼯
     (ideographic-strokes . 3)
     (total-strokes      . 6)
-    (=cns11643-4       . #x2263)       ; &CDP-8C6F; [02-67]
-    (=big5-cdp         . #x8C6F)       ; &I-CDP-8C6F;
+    (=>ucs@JP          . #x5DE9)       ; &A-CU+5DE9;
+    (=>ucs@cns         . #x5DE9)       ; &A-CU+5DE9;
+    (->subsumptive
+     ((=ucs@jis                  . #x5DE9)     ; &M-08726;
+      (=jis-x0212        . #x3C21)     ; &M-08726; [28-01]
+      (=jis-x0213-2      . #x286E)     ; &I-JX2-286E; [08-78]
+      (=daikanwa         . 08726)      ; &I-M-08726;
+      (=hanyo-denshi/jb          . #x3C21)     ; &I-HD-JB-3C21; [28-01]
+      )
+     ((=ucs@cns                  . #x5DE9)     ; &CDP-8C6F;
+      (=cns11643-4       . #x2263)     ; &CDP-8C6F; [02-67]
+      (=big5-cdp         . #x8C6F)     ; &I-CDP-8C6F;
+      ))
     ))
 (define-char
-  '((morohashi-daikanwa        8726 0 3)
+  '((<-denotational
+     ((=ucs              . #x5DE9)     ; 巩
+      ))
     (ideographic-radical . 48) ; ⼯
     (ideographic-strokes . 3)
     (total-strokes      . 6)
-    (=ucs              . #x5DE9)       ; 巩
-    (=gb2312           . #x392E)       ; &I-G0-392E; [25-14]
+    (=ucs@unicode      . #x5DE9)       ; &G0-392E;
+    (=gb2312           . #x392E)       ; &G0-392E; [25-14]
     ))
 (define-char
   '((morohashi-daikanwa        ho 158)
     (ideographic-radical . 48) ; ⼯
     (ideographic-strokes . 3)
     (total-strokes      . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x2F81E)    ; 刃
+      )
+     ((=ucs              . #x5DE5)     ; 工
+      ))
     (=gt               . 11004)        ; &GT-11004;
     (=gt-pj-11         . #x4335)       ; &GT-11004; [35-21]
     ))
@@ -260,7 +278,6 @@
     (ideographic-strokes . 7)
     (total-strokes      . 10)
     (=ucs@jis          . #x5DEE)       ; &GT-11011;
-    (=ucs@big5         . #x5DEE)       ; &GT-11011;
     (=jis-x0208                . #x3A39)       ; &GT-11011; [26-25]
     (=ks-x1001         . #x732C)       ; &I-K0-732C; [83-12]
     (=cns11643-1       . #x5538)       ; &I-C1-5538; [53-24]