(g2-M-08652): Add `ideographic-structure'.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R060-Step.el

diff --git a/lisp/utf-2000/Ideograph-R060-Step.el b/lisp/utf-2000/Ideograph-R060-Step.el
index 28b2a5d..5f0e25d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R060-Step.el
+++ b/lisp/utf-2000/Ideograph-R060-Step.el
@@ -1680,11 +1680,24 @@
     (=cns11643-6       . #x3749)       ; &I-C6-3749; [23-41]
     (=daikanwa         . 10124)        ; &I-M-10124;
     (<-ancient
-     ((=ks-x1001         . #x7757)     ; &M-38892; [87-55]
+     ((=ucs@ks           . #x901A)     ; &AJ1-13939;
+      (=adobe-japan1-4   . 13939)      ; &AJ1-13939;
       (=daikanwa         . 38892)      ; &I-M-38892;
       ))
     (<-ancient*sources
      zihui-bei daikanwa)
+    (->subsumptive
+     ((==ucs@iso         . #x224F6)    ; &g2-M-10124;
+      (==cns11643-6      . #x3749)     ; &g2-M-10124; [23-41]
+      (==daikanwa        . 10124)      ; &g2-M-10124;
+      (->subsumptive
+       ((===daikanwa       . 10124)    ; &R-M-10124;
+       )
+       ((===cns11643-6     . #x3749)   ; &R-C6-3749; [23-41]
+       )
+       ((===ucs@iso        . #x224F6)  ; &R-U-000224F6;
+       ))
+      ))
     ))
 (define-char
   '((ideographic-radical . 60) ; ⼻
@@ -3314,8 +3327,8 @@
        )
        ((=ucs              . #x5F73)   ; 彳
        )
-       ((=ucs@ks           . #x5EFA)   ; &AJ1-13436;
-       (=adobe-japan1-4    . 13436)    ; &AJ1-13436;
+       ((==ucs@ks          . #x5EFA)   ; &g2-AJ1-13436;
+       (==adobe-japan1-4   . 13436)    ; &g2-AJ1-13436;
        ))
       (==ucs@jis         . #x5FA4)     ; &g2-AJ1-14527;
       (==adobe-japan1-4          . 14527)      ; &g2-AJ1-14527;
@@ -3334,8 +3347,8 @@
        )
        ((=ucs              . #x5F73)   ; 彳
        )
-       ((=ucs@unicode      . #x5EFA)   ; &AJ1-01872;
-       (=adobe-japan1-0    . 01872)    ; &AJ1-01872;
+       ((==ucs@unicode     . #x5EFA)   ; &g2-AJ1-01872;
+       (==adobe-japan1-0   . 01872)    ; &g2-AJ1-01872;
        ))
       (==ucs@unicode     . #x5FA4)     ; &g2-CB00735;
       (==ucs@JP/hanazono  . nil)