(CU+3983): Apply new conventions for glyph granularity; unify

KOSEKI-125190 and MJ001268.

diff --git a/lisp/utf-2000/Ideograph-R061-Heart.el b/lisp/utf-2000/Ideograph-R061-Heart.el
index 2d5951f..3833738 100644 (file)
--- a/lisp/utf-2000/Ideograph-R061-Heart.el
+++ b/lisp/utf-2000/Ideograph-R061-Heart.el
@@ -27410,7 +27410,8 @@
       )
      ((=ucs              . #x5FC4)     ; 忄
       )
-     ((=>jis-x0208       . #x3B3A)     ; &J97-3B3A; [27-26]
+     ((=>ucs@iwds-1      . #x7522)     ; &J97-3B3A;
+      (=>jis-x0208       . #x3B3A)     ; &J97-3B3A; [27-26]
       ))
     (=ucs              . #x3983)       ; 㦃
     ))
@@ -27429,14 +27430,24 @@
       )
      ((=ucs              . #x7522)     ; 產
       ))
-    (=ucs@cns          . #x3983)       ; &C3-4669;
-    (=cns11643-3       . #x4669)       ; &C3-4669; [38-73]
+    (=ucs@cns          . #x3983)       ; &MJ001268;
+    (=mj               . 001268)       ; &MJ001268;
+    (=cns11643-3       . #x4669)       ; &I-C3-4669; [38-73]
+    (=koseki           . 125190)       ; &MJ001268;
     (=daikanwa         . 11141)        ; &I-M-11141;
     (->subsumptive
-     ((==daikanwa        . 11141)      ; &g2-M-11141;
-      )
-     ((==ucs@cns         . #x3983)     ; &g2-CU+3983;
-      (==cns11643-3      . #x4669)     ; &g2-CU+3983; [38-73]
+     ((==ucs@cns         . #x3983)     ; &g2-MJ001268;
+      (==mj              . 001268)     ; &g2-MJ001268;
+      (==cns11643-3      . #x4669)     ; &g2-MJ001268; [38-73]
+      (==koseki                  . 125190)     ; &g2-MJ001268;
+      (==daikanwa        . 11141)      ; &g2-MJ001268;
+      (->subsumptive
+       ((===daikanwa       . 11141)    ; &R-M-11141;
+       )
+       ((===mj             . 001268)   ; &R-MJ001268;
+       )
+       ((===cns11643-3     . #x4669)   ; &R-C3-4669; [38-73]
+       ))
       ))
     ))
 (define-char