From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 4 Jul 2023 04:28:34 +0000 (+0900)
Subject: (IU+2018C): Unify MJ030518 and KOSEKI-004160; apply new conventions
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=99d00f5988c4c1b29e2020a996a844aa8a8047e3;p=chise%2Fxemacs-chise.git

(IU+2018C): Unify MJ030518 and KOSEKI-004160; apply new conventions
for glyph granularity.
---

diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el
index 58256a3..19b8a97 100644
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -6542,10 +6542,26 @@
       )
      ((=ucs		  . #x34B6)	; 㒶
       ))
-    (=ucs@iso		. #x2018C)	; &C7-2C3F;
-    (=cns11643-7	. #x2C3F)	; &C7-2C3F; [12-31]
+    (=ucs@iso		. #x2018C)	; &MJ030518;
+    (=mj		. 030518)	; &MJ030518;
+    (=cns11643-7	. #x2C3F)	; &I-C7-2C3F; [12-31]
+    (=koseki		. 004160)	; &MJ030518;
     (=daikanwa		. 00334)	; &I-M-00334;
-    (=hanziku-1		. #xE276)	; &I-HZK01-E276;
+    (<-ancient
+     ((=ucs@unicode	  . #x5EB8)	; &MJ011018;
+      (=mj		  . 011018)	; &MJ011018;
+      (=daikanwa	  . 09378)	; &I-M-09378;
+      ))
+    (<-ancient*sources
+     jiyun daikanwa)
+    (<-formed
+     ((=ucs@unicode	  . #x5EB8)	; &MJ011018;
+      (=mj		  . 011018)	; &MJ011018;
+      ))
+    (<-formed$_1*sources
+     koseki mj)
+    (<-formed*sources
+     koseki mj)
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
@@ -6557,28 +6573,22 @@
 	)
        ((=ucs		    . #x767D)	; 白
 	))
-      (=>>ucs@iso	  . #x2018C)	; &G-IU+2018C;
-      (=>>daikanwa	  . 00334)	; &G-IU+2018C;
+      (=>>ucs@iso	  . #x2018C)	; &G-MJ030518;
+      (=>>mj		  . 030518)	; &G-MJ030518;
+      (=>>daikanwa	  . 00334)	; &G-MJ030518;
       (->subsumptive
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-	  (=ucs		      . #x2FF3)	; ⿳
-	  )
-	 ((==ucs@unicode      . #x4EAF)	; &g2-AJ1-21082;
-	  (==adobe-japan1-6   . 21082)	; &g2-AJ1-21082;
-	  )
-	 ((==ucs@unicode      . #x516B)	; &g2-MJ007274;
-	  (==mj		      . 007274)	; &g2-MJ007274;
-	  )
-	 ((==ucs@unicode      . #x767D)	; &g2-AJ1-03368;
-	  (==adobe-japan1-0   . 03368)	; &g2-AJ1-03368;
-	  ))
-	(==ucs@iso	    . #x2018C)	; &g2-M-00334;
-	(==daikanwa	    . 00334)	; &g2-M-00334;
+       ((==ucs@iso	    . #x2018C)	; &g2-MJ030518;
+	(==mj		    . 030518)	; &g2-MJ030518;
+	(==koseki	    . 004160)	; &g2-MJ030518;
+	(==daikanwa	    . 00334)	; &g2-MJ030518;
 	(->subsumptive
 	 ((===daikanwa	      . 00334)	; &R-M-00334;
 	  )
+	 ((===mj	      . 030518)	; &R-MJ030518;
+	  )
 	 ((===ucs@iso	      . #x2018C)	; &R-U-0002018C;
+	  )
+	 ((=hanziku-1	      . #xE276)	; &HZK01-E276;
 	  ))
 	))
       )
@@ -6594,18 +6604,7 @@
 	))
       (=>>ucs@cns	  . #x2018C)	; &G-CU+2018C;
       (->subsumptive
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-	  (=ucs		      . #x2FF3)	; ⿳
-	  )
-	 ((==ucs@unicode      . #x4EAF)	; &g2-AJ1-21082;
-	  (==adobe-japan1-6   . 21082)	; &g2-AJ1-21082;
-	  )
-	 ((=ucs		      . #x513F)	; 儿
-	  )
-	 ((=ucs		      . #x767D)	; 白
-	  ))
-	(==ucs@cns	    . #x2018C)	; &g2-CU+2018C;
+       ((==ucs@cns	    . #x2018C)	; &g2-CU+2018C;
 	(==cns11643-7	    . #x2C3F)	; &g2-CU+2018C; [12-31]
 	))
       ))