(U+72C4): Apply new conventions for glyph granularity.

diff --git a/lisp/utf-2000/Ideograph-R094-Dog.el b/lisp/utf-2000/Ideograph-R094-Dog.el
index 6e078ad..fb709f4 100644 (file)
--- a/lisp/utf-2000/Ideograph-R094-Dog.el
+++ b/lisp/utf-2000/Ideograph-R094-Dog.el
@@ -847,26 +847,48 @@
     (ideographic-strokes . 4)
     (total-strokes      . 7)
     (=ucs              . #x72C4)       ; 狄
-    (->subsumptive
-     ((=ucs@unicode      . #x72C4)     ; &GT-26001;
-      (=jis-x0208        . #x603F)     ; &GT-26001; [64-31]
-      (=gb2312           . #x3552)     ; &I-G0-3552; [21-50]
-      (=ks-x1001         . #x6E5A)     ; &I-K0-6E5A; [78-58]
-      (=jis-x0213-1      . #x603F)     ; &I-JX1-603F; [64-31]
-      (=big5             . #xA866)     ; &I-B-A866;
-      (=gt               . 26001)      ; &I-GT-26001;
-      (=gt-k             . 02718)      ; &I-GT-K02718;
-      (=gt-pj-1                  . #x603F)     ; &I-GT-26001; [64-31]
-      (=daikanwa         . 20290)      ; &I-M-20290;
-      (=shinjigen        .  4767)      ; &GT-26001;
-      (<-formed
-       ((=ucs@jis          . #x9016)   ; &GT-52140;
-       (=jis-x0208         . #x6D78)   ; &GT-52140; [77-88]
-       (=jis-x0213-1       . #x6D78)   ; &I-JX1-6D78; [77-88]
-       (=daikanwa          . 38886)    ; &I-M-38886;
+    (=jis-x0208                . #x603F)       ; &I-J90-603F; [64-31]
+    (=gb2312           . #x3552)       ; &I-G0-3552; [21-50]
+    (=ks-x1001         . #x6E5A)       ; &I-K0-6E5A; [78-58]
+    (=cns11643-1       . #x4B29)       ; &I-C1-4B29; [43-09]
+    (=jis-x0213-1      . #x603F)       ; &I-JX1-603F; [64-31]
+    (=big5             . #xA866)       ; &I-B-A866;
+    (=gt               . 26001)        ; &I-GT-26001;
+    (=gt-k             . 02718)        ; &I-GT-K02718;
+    (=gt-pj-1          . #x603F)       ; &I-GT-26001; [64-31]
+    (=daikanwa         . 20290)        ; &I-M-20290;
+    (=shinjigen                .  4767)        ; 狄
+    (<-formed
+     ((=ucs@jis                  . #x9016)     ; &AJ1-06903;
+      (=adobe-japan1-0   . 06903)      ; &AJ1-06903;
+      ))
+    (->subsumptive
+     ((==ucs@unicode     . #x72C4)     ; &g2-GT-26001;
+      (==gb2312                  . #x3552)     ; &g2-GT-26001; [21-50]
+      (==ks-x1001        . #x6E5A)     ; &g2-GT-26001; [78-58]
+      (==jis-x0208       . #x603F)     ; &g2-GT-26001; [64-31]
+      (==jis-x0213-1     . #x603F)     ; &g2-GT-26001; [64-31]
+      (==gt              . 26001)      ; &g2-GT-26001;
+      (==gt-k            . 02718)      ; &g2-GT-26001;
+      (==daikanwa        . 20290)      ; &g2-GT-26001;
+      (==shinjigen       .  4767)      ; &g2-GT-26001;
+      (->subsumptive
+       ((===daikanwa       . 20290)    ; &R-M-20290;
+       )
+       ((===jis-x0208      . #x603F)   ; &R-J0-603F; [64-31]
+       (===jis-x0213-1     . #x603F)   ; &R-J0-603F; [64-31]
+       )
+       ((===gt             . 26001)    ; &R-GT-26001;
+       (===gt-k            . 02718)    ; &R-GT-26001;
+       )
+       ((===ucs@ks         . #x72C4)   ; &R-K0-6E5A;
+       (===ks-x1001        . #x6E5A)   ; &R-K0-6E5A; [78-58]
+       )
+       ((===ucs@unicode            . #x72C4)   ; &R-UU+72C4;
        ))
       )
-     ((=cns11643-1       . #x4B29)     ; &C1-4B29; [43-09]
+     ((==ucs@cns         . #x72C4)     ; &g2-CU+72C4;
+      (==cns11643-1      . #x4B29)     ; &g2-CU+72C4; [43-09]
       ))
     ))
 (define-char