(U-00020116): Apply new conventions for glyph granularity.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R006-Hook.el

diff --git a/lisp/utf-2000/Ideograph-R006-Hook.el b/lisp/utf-2000/Ideograph-R006-Hook.el
index 8e33ce6..75c5e30 100644 (file)
--- a/lisp/utf-2000/Ideograph-R006-Hook.el
+++ b/lisp/utf-2000/Ideograph-R006-Hook.el
@@ -522,36 +522,52 @@
     (=ucs              . #x20116)      ; 𠄖
     (=cns11643-5       . #x2330)       ; &I-C5-2330; [03-16]
     (=daikanwa         . 00237)        ; &I-M-00237;
-    (=hanziku-1                . #xBE59)       ; &I-HZK01-BE59;
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
        (=ucs               . #x2FF0)   ; ⿰
        )
-       ((==ucs@jis         . #x4EE4)   ; &g2-AJ1-04009;
-       (==ucs@ks           . #x4EE4)   ; &g2-AJ1-04009;
-       (==adobe-japan1-0   . 04009)    ; &g2-AJ1-04009;
+       ((=>>ucs@jis        . #x4EE4)   ; &G-AJ1-04009;
+       (=>>ucs@ks          . #x4EE4)   ; &G-AJ1-04009;
+       (=>>adobe-japan1-0  . 04009)    ; &G-AJ1-04009;
        )
        ((=ucs              . #x4E01)   ; 丁
        ))
-      (==daikanwa        . 00237)      ; &g2-M-00237;
+      (=>>daikanwa       . 00237)      ; &G-M-00237;
+      (->subsumptive
+       ((==daikanwa        . 00237)    ; &g2-M-00237;
+       ))
       )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
        (=ucs               . #x2FF0)   ; ⿰
        )
-       ((==ucs@cns         . #x4EE4)   ; &GT-K01023;
+       ((=>>ucs@cns        . #x4EE4)   ; &GT-K01023;
        (=gt-k              . 01023)    ; &GT-K01023;
        )
        ((=ucs              . #x4E01)   ; 丁
        ))
-      (==ucs@iso         . #x20116)    ; &g2-IU-00020116;
-      (==cns11643-5      . #x2330)     ; &g2-IU-00020116; [03-16]
+      (=>>ucs@iso        . #x20116)    ; &G-IU+20116;
       (->subsumptive
-       ((===cns11643-5     . #x2330)   ; &R-C5-2330; [03-16]
+       ((==ucs@iso         . #x20116)  ; &g2-IU-00020116;
+       (==cns11643-5       . #x2330)   ; &g2-IU-00020116; [03-16]
+       (->subsumptive
+        ((===cns11643-5      . #x2330) ; &R-C5-2330; [03-16]
+         )
+        ((===ucs@iso         . #x20116)        ; &R-U-00020116;
+         ))
+       ))
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+       (=ucs               . #x2FF0)   ; ⿰
        )
-       ((===ucs@iso        . #x20116)  ; &R-U-00020116;
+       ((=>>ucs@unicode            . #x4EE4)   ; &GT-K01022;
+       (=gt-k              . 01022)    ; &GT-K01022;
+       )
+       ((=ucs              . #x4E01)   ; 丁
        ))
+      (=hanziku-1        . #xBE59)     ; &HZK01-BE59;
       ))
     ))
 (define-char