(U+342B): Use `->subsumptive' instead of `->denotational'.

diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el
index 15b6a66..125f6a0 100644 (file)
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -725,6 +725,7 @@
     (ideographic-radical@cns . 17)     ; ⼐
     (ideographic-strokes . 4)
     (total-strokes      . 6)
+    (hanyu-dazidian    1 283 2)
     (=ucs              . #x342B)       ; 㐫
     (=cns11643-3       . #x2323)       ; &I-C3-2323; [03-03]
     (=big5-cdp         . #x8C5E)       ; &I-CDP-8C5E;
@@ -732,54 +733,51 @@
     (=cbeta            . 04846)        ; &I-CB04846;
     (=jef-china3       . #x8DCD)       ; &I-JC3-8DCD;
     (<-vulgar
-     ((=ucs@jis                  . #x51F6)     ; &GT-02360;
-      (=ucs@ks           . #x51F6)     ; &GT-02360;
-      (=jis-x0208        . #x3627)     ; &GT-02360; [22-07]
-      (=ks-x1001         . #x7D55)     ; &I-K0-7D55; [93-53]
-      (=cns11643-1       . #x447E)     ; &I-C1-447E; [36-94]
-      (=jis-x0213-1      . #x3627)     ; &I-JX1-3627; [22-07]
+     ((=ucs              . #x51F6)     ; 凶
       (=daikanwa         . 01803)      ; &I-M-01803;
       ))
     (<-vulgar*sources
      pianhai-leibian daikanwa)
-    ))
-(define-char
-  '((<-denotational
-     ((=ucs              . #x342B)     ; 㐫
-      ))
-    (ideographic-radical@ucs . 8)      ; ⼇
-    (ideographic-radical@ucs*sources
-     daikanwa ucs)
-    (ideographic-radical@cns . 17)     ; ⼐
-    (ideographic-strokes . 4)
-    (total-strokes      . 6)
-    (hanyu-dazidian    1 283 2)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs              . #x2FF1)     ; ⿱
-      )
-     ((=ucs              . #x4EA0)     ; 亠
-      )
-     ((=ucs              . #x51F6)     ; 凶
-      ))
-    (==ucs@unicode     . #x342B)       ; &g2-CDP-8C5E;
-    (==cns11643-3      . #x2323)       ; &g2-CDP-8C5E; [03-03]
-    (==big5-cdp                . #x8C5E)       ; &g2-CDP-8C5E;
-    (==daikanwa/ho     .  0008)        ; &g2-CDP-8C5E;
-    (==cbeta           . 04846)        ; &g2-CDP-8C5E;
-    (==jef-china3      . #x8DCD)       ; &g2-CDP-8C5E;
     (->subsumptive
-     ((===daikanwa/ho    .  0008)      ; &R-M-H0008;
-      )
-     ((===big5-cdp       . #x8C5E)     ; &R-CDP-8C5E;
-      )
-     ((===cbeta                  . 04846)      ; &R-CB04846;
-      )
-     ((===cns11643-3     . #x2323)     ; &R-C3-2323; [03-03]
-      )
-     ((===ucs@unicode    . #x342B)     ; &R-UU+342B;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (=ucs               . #x2FF1)   ; ⿱
+       )
+       ((=ucs              . #x4EA0)   ; 亠
+       )
+       ((==ucs@cns         . #x51F6)   ; &g2-AJ1-01695;
+       (==ucs@jis          . #x51F6)   ; &g2-AJ1-01695;
+       (==ucs@ks           . #x51F6)   ; &g2-AJ1-01695;
+       (==adobe-japan1-0   . 01695)    ; &g2-AJ1-01695;
+       ))
+      (==ucs@cns         . #x342B)     ; &g2-CDP-8C5E;
+      (==cns11643-3      . #x2323)     ; &g2-CDP-8C5E; [03-03]
+      (==big5-cdp        . #x8C5E)     ; &g2-CDP-8C5E;
+      (==daikanwa/ho     .  0008)      ; &g2-CDP-8C5E;
+      (==cbeta           . 04846)      ; &g2-CDP-8C5E;
+      (==jef-china3      . #x8DCD)     ; &g2-CDP-8C5E;
+      (->subsumptive
+       ((===daikanwa/ho            .  0008)    ; &R-M-H0008;
+       )
+       ((===big5-cdp       . #x8C5E)   ; &R-CDP-8C5E;
+       )
+       ((===cbeta          . 04846)    ; &R-CB04846;
+       )
+       ((===cns11643-3     . #x2323)   ; &R-C3-2323; [03-03]
+       )
+       ((===jef-china3     . #x8DCD)   ; &R-JC3-8DCD;
+       ))
       )
-     ((===jef-china3     . #x8DCD)     ; &R-JC3-8DCD;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (=ucs               . #x2FF1)   ; ⿱
+       )
+       ((=ucs              . #x4EA0)   ; 亠
+       )
+       ((==ucs@unicode     . #x51F6)   ; &g2-UU+51F6;
+       ))
+      (==ucs@unicode     . #x342B)     ; &g2-UU+342B;
+      (==ucs@JP/hanazono  . nil)
       ))
     ))
 (define-char