(U+8200): Add `ideographic-structure'.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R134-Mortar.el

diff --git a/lisp/utf-2000/Ideograph-R134-Mortar.el b/lisp/utf-2000/Ideograph-R134-Mortar.el
index d516d60..419f4f4 100644 (file)
--- a/lisp/utf-2000/Ideograph-R134-Mortar.el
+++ b/lisp/utf-2000/Ideograph-R134-Mortar.el
@@ -283,6 +283,14 @@
   '((ideographic-radical . 134)        ; ⾅
     (ideographic-strokes . 4)
     (total-strokes      . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x722B)     ; 爫
+      )
+     ((=ucs              . #x81FC)     ; 臼
+      ))
     (sound@ja/on       "Eu")
     (=ucs              . #x8200)       ; 舀
     (=big5             . #xAFE6)       ; &I-B-AFE6;
@@ -1011,6 +1019,8 @@
        ))
       (==ucs@cns         . #x8207)     ; &g2-CU+8207;
       (==cns11643-1      . #x6A58)     ; &g2-CU+8207; [74-56]
+      )
+     ((===hng-kar        . 12100)      ; &HNG018-12100;
       ))
     ))
 (define-char
@@ -1249,7 +1259,38 @@
     (=gt               . 39116)        ; &I-GT-39116;
     (=gt-pj-1          . #x363D)       ; &I-GT-39116; [22-29]
     (=daikanwa         . 30226)        ; &I-M-30226;
-    (=shinjigen@rev    .  6627)        ; 興
+    (=shinjigen                .  6627)        ; 興
+    (->subsumptive
+     ((==ucs@ks                  . #x8208)     ; &g2-GT-39116;
+      (==ks-x1001        . #x7D69)     ; &g2-GT-39116; [93-73]
+      (==gt              . 39116)      ; &g2-GT-39116;
+      (==daikanwa        . 30226)      ; &g2-GT-39116;
+      (==shinjigen       .  6627)      ; &g2-GT-39116;
+      (->subsumptive
+       ((===daikanwa       . 30226)    ; &R-M-30226;
+       )
+       ((===gt             . 39116)    ; &R-GT-39116;
+       )
+       ((===ucs@ks         . #x8208)   ; &R-K0-7D69;
+       (===ks-x1001        . #x7D69)   ; &R-K0-7D69; [93-73]
+       ))
+      )
+     ((==ucs@unicode     . #x8208)     ; &g2-J90-363D;
+      (==jis-x0208       . #x363D)     ; &g2-J90-363D; [22-29]
+      (==cns11643-1      . #x717B)     ; &g2-J90-363D; [81-91]
+      (==jis-x0213-1     . #x363D)     ; &g2-J90-363D; [22-29]
+      (==gb12345         . #x504B)     ; &g2-J90-363D; [48-43]
+      (->subsumptive
+       ((===jis-x0208      . #x363D)   ; &R-J0-363D; [22-29]
+       (===jis-x0213-1     . #x363D)   ; &R-J0-363D; [22-29]
+       )
+       ((===cns11643-1     . #x717B)   ; &R-C1-717B; [81-91]
+       )
+       ((===ucs@unicode            . #x8208)   ; &R-UU+8208;
+       ))
+      )
+     ((===hng-kar        . 12130)      ; &HNG018-12130;
+      ))
     ))
 (define-char
   '((=>ucs             . #x26986)      ; 𦦆
@@ -1652,6 +1693,8 @@
        )
        ((===cns11643-1     . #x772E)   ; &R-C1-772E; [87-14]
        ))
+      )
+     ((===hng-kar        . 12140)      ; &HNG018-12140;
       ))
     ))
 (define-char