(CU+5368): Unify GT-03597 and GT-K08972; apply new conventions for

glyph granularity.

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index 44c285f..5537480 100644 (file)
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -1913,13 +1913,40 @@
       (=ucs@jis                  . #x54BC)     ; &AJ1-04376;
       (=adobe-japan1-0   . 04376)      ; &AJ1-04376;
       ))
-    (=ucs@cns          . #x5368)       ; &C4-3064;
-    (=ucs@ks           . #x5368)       ; &C4-3064;
-    (=ks-x1001         . #x6059)       ; &C4-3064; [64-57]
+    (=ucs@cns          . #x5368)       ; &GT-03597;
+    (=ucs@ks           . #x5368)       ; &GT-03597;
+    (=ks-x1001         . #x6059)       ; &GT-03597; [64-57]
     (=cns11643-4       . #x3064)       ; &I-C4-3064; [16-68]
+    (=gt               . 03597)        ; &I-GT-03597;
+    (=gt-k             . 08972)        ; &I-GT-K08972;
+    (=gt-pj-2          . #x493E)       ; &I-GT-03597; [41-30]
     (=daikanwa         . 02820)        ; &I-M-02820;
-    (=hanziku-1                . #xB7A9)       ; &I-HZK01-B7A9;
     (=cbeta            . 05348)        ; &I-CB05348;
+    (->subsumptive
+     ((==ucs@cns         . #x5368)     ; &g2-GT-03597;
+      (==ucs@ks                  . #x5368)     ; &g2-GT-03597;
+      (==ks-x1001        . #x6059)     ; &g2-GT-03597; [64-57]
+      (==cns11643-4      . #x3064)     ; &g2-GT-03597; [16-68]
+      (==gt              . 03597)      ; &g2-GT-03597;
+      (==gt-k            . 08972)      ; &g2-GT-03597;
+      (==daikanwa        . 02820)      ; &g2-GT-03597;
+      (==cbeta           . 05348)      ; &g2-GT-03597;
+      (->subsumptive
+       ((===daikanwa       . 02820)    ; &R-M-02820;
+       )
+       ((===cns11643-4     . #x3064)   ; &R-C4-3064; [16-68]
+       )
+       ((===ucs@ks         . #x5368)   ; &R-K0-6059;
+       (===ks-x1001        . #x6059)   ; &R-K0-6059; [64-57]
+       )
+       ((=hanziku-1        . #xB7A9)   ; &HZK01-B7A9;
+       )
+       ((===cbeta          . 05348)    ; &R-CB05348;
+       )
+       ((===gt             . 03597)    ; &R-GT-03597;
+       (===gt-k            . 08972)    ; &R-GT-03597;
+       ))
+      ))
     ))
 (define-char
   '((<-denotational
@@ -1939,6 +1966,11 @@
       (=gb12345                  . #x5F43)     ; &UU+54BC; [63-35]
       ))
     (=ucs@unicode      . #x5368)       ; &UU+5368;
+    (=ucs@JP/hanazono  . nil)
+    (->subsumptive
+     ((==ucs@unicode     . #x5368)     ; &g2-UU+5368;
+      (==ucs@JP/hanazono  . nil)
+      ))
     ))
 (define-char
   '((=>ucs             . #x209FA)      ; 𠧺