(g2-MJ020327): Add `ideographic-structure'.

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R008-Lid.el

diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el
index 4c1c2a4..5675f65 100644 (file)
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -842,7 +842,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 8)  ; ⼇
+  '((<-denotational
+     ((==>ucs@bucs       . #x7522)     ; &BUCS+7522;
+      ))
+    (ideographic-radical . 8)  ; ⼇
     (ideographic-strokes . 4)
     (total-strokes      . 6)
     (hanyu-dazidian    1 283 3)
@@ -864,6 +867,10 @@
     (=ucs              . #x4EA7)       ; 产
     (=gb2312           . #x327A)       ; &I-G0-327A; [18-90]
     (=hanziku-1                . #xE06E)       ; &I-HZK01-E06E;
+    (<-simplified@CN
+     ((=ucs              . #x7523)     ; 産
+      (=gb12345                  . #x327A)     ; 産 [18-90]
+      ))
     ))
 (define-char
   '((=>ucs             . #x4EA7)       ; 产
@@ -1024,6 +1031,13 @@
       (=>iwds-1                  .  0345)      ; &IWDS1-345;
       ))
     (ideographic-radical . 8)  ; ⼇
+    (=ucs              . #x342C)       ; 㐬
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x342C)     ; 㐬
+      ))
+    (ideographic-radical . 8)  ; ⼇
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
@@ -1032,7 +1046,8 @@
       )
      ((=ucs              . #x2BDA7)    ; 𫶧
       ))
-    (=ucs              . #x342C)       ; 㐬
+    (=>ucs@iwds-1      . #x342C)       ; &A-IWDSU+342C;
+    (=>ucs@unicode     . #x342C)       ; &A-IWDSU+342C;
     (->subsumptive
      ((ideographic-strokes . 5)
       (total-strokes      . 7)
@@ -1335,7 +1350,20 @@
       )
      ((=ucs              . #x5B50)     ; 子
       ))
-    (===hng-kak                . 02720)        ; &HNG017-02720;
+    (=mj               . 056895)       ; &MJ056895;
+    (=hanyo-denshi/ks  . 003860)       ; &MJ056895;
+    (->subsumptive
+     ((==mj              . 056895)     ; &g2-MJ056895;
+      (==hanyo-denshi/ks  . 003860)    ; &g2-MJ056895;
+      (->subsumptive
+       ((===hanyo-denshi/ks . 003860)  ; &R-HD-KS-003860;
+       (=hanyo-denshi/ks/mf . #x0182)  ; &R-HD-KS-003860;
+       )
+       ((===mj             . 056895)   ; &R-MJ056895;
+       )
+       ((===hng-kak        . 02720)    ; &HNG017-02720;
+       ))
+      ))
     ))
 (define-char
   '((ideographic-radical . 8)  ; ⼇