From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 4 Feb 2023 23:37:02 +0000 (+0900)
Subject: (U-0002F8DA): Unify MJ013566 and KOSEKI-161870.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=eaca29cd4fd51f0cb97601302aa283014fbe4f93;p=chise%2Fxemacs-chise.git

(U-0002F8DA): Unify MJ013566 and KOSEKI-161870.
(UU+6721): Use `ideographic-radical@r074' instead of
`ideographic-radical'; add `ideographic-radical@r130'; unify MJ013567.
---

diff --git a/lisp/utf-2000/Ideograph-R074-Moon.el b/lisp/utf-2000/Ideograph-R074-Moon.el
index 168e552..9f32473 100644
--- a/lisp/utf-2000/Ideograph-R074-Moon.el
+++ b/lisp/utf-2000/Ideograph-R074-Moon.el
@@ -4946,7 +4946,9 @@
     (sound@ja/on/go	"su")
     (sound@ja/on/kan	"sou")
     (=ucs		. #x2F8DA)	; 朡
+    (=mj		. 013566)	; &I-MJ013566;
     (=cns11643-5	. #x3F66)	; &I-C5-3F66; [31-70]
+    (=koseki		. 161870)	; 朡
     (=daikanwa		. 14387)	; &I-M-14387;
     (<-Liwen
      ((=ucs@cns		  . #x8250)	; &C2-5332;
@@ -4965,14 +4967,15 @@
     (<-same*sources
      jiyun daikanwa)
     (->subsumptive
-     ((==daikanwa	  . 14387)	; &g2-M-14387;
+     ((==koseki		  . 161870)	; &g2-M-14387;
+      (==daikanwa	  . 14387)	; &g2-M-14387;
       )
-     ((==ucs@iso	  . #x2F8DA)	; &g2-IU-0002F8DA;
-      (==cns11643-5	  . #x3F66)	; &g2-IU-0002F8DA; [31-70]
+     ((==mj		  . 013566)	; &g2-MJ013566;
+      )
+     ((==ucs@cns	  . #x2F8DA)	; &g2-CU+2F8DA;
+      (==cns11643-5	  . #x3F66)	; &g2-CU+2F8DA; [31-70]
       (->subsumptive
        ((===cns11643-5	    . #x3F66)	; &R-C5-3F66; [31-70]
-	)
-       ((===ucs@iso	    . #x2F8DA)	; &R-U-0002F8DA;
 	))
       ))
     ))
@@ -4980,7 +4983,12 @@
   '((<-denotational
      ((=ucs		  . #x4DBD)	; 䶽
       ))
-    (ideographic-radical . 74)	; ⽉
+    (ideographic-radical@r074 . 74)	; ⽉
+    (ideographic-radical@r074*sources
+     ucs=0x4DBD)
+    (ideographic-radical@r130 . 130)	; ⾁
+    (ideographic-radical@r130*sources
+     ucs=0x6721 mj)
     (ideographic-strokes . 9)
     (total-strokes	 . 13)
     (ideographic-structure
@@ -4993,10 +5001,20 @@
      ((=ucs@unicode	  . #x3687)	; &HD-KS-065500;
       (=hanyo-denshi/ks	  . 065500)	; &HD-KS-065500;
       ))
-    (=ucs@unicode	. #x6721)	; &UU+6721;
-    (=ucs@JP/hanazono	. #x4DBD)	; &UU+6721;
+    (=ucs@unicode	. #x6721)	; &MJ013567;
+    (=ucs@JP/hanazono	. #x4DBD)	; &MJ013567;
+    (=mj		. 013567)	; &MJ013567;
+    (<-formed@mj
+     ((=ucs@cns		  . #x6721)	; &C2-4641;
+      (=cns11643-2	  . #x4641)	; &C2-4641; [38-33]
+      (=daikanwa	  . 29740)	; &I-M-29740;
+      ))
     (->subsumptive
-     ((==ucs@JP/hanazono  . #x4DBD)	; &g2-hanaJU+4DBD;
+     ((==ucs@JP/hanazono  . #x4DBD)	; &g2-MJ013567;
+      (==mj		  . 013567)	; &g2-MJ013567;
+      (->subsumptive
+       ((===mj		    . 013567)	; &R-MJ013567;
+	))
       )
      ((==ucs@unicode	  . #x6721)	; &g2-UU+6721;
       (==ucs@JP/hanazono  . nil)