From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 8 Jul 2017 14:34:59 +0000 (+0900)
Subject: (U+3F31): Apply new conventions for glyph granularity; unify BC-88FC.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5acc503cd4af20d5b8f7f6e13294fac7d8a7362f;p=chise%2Fxemacs-chise.git

(U+3F31): Apply new conventions for glyph granularity; unify BC-88FC.
---

diff --git a/lisp/utf-2000/Ideograph-R098-Tile.el b/lisp/utf-2000/Ideograph-R098-Tile.el
index c238f8e..229d436 100644
--- a/lisp/utf-2000/Ideograph-R098-Tile.el
+++ b/lisp/utf-2000/Ideograph-R098-Tile.el
@@ -1755,13 +1755,64 @@
   '((ideographic-radical . 98)	; ⽡
     (ideographic-strokes . 9)
     (total-strokes	 . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
+      (=ucs		  . #x2FF3)	; ⿳
+      )
+     ((=ucs		  . #x5317)	; 北
+      )
+     ((=ucs		  . #x2626A)	; 𦉪
+      )
+     ((=ucs		  . #x74E6)	; 瓦
+      ))
     (=ucs		. #x3F31)	; ã¼±
+    (=cns11643-5	. #x4748)	; &I-C5-4748; [39-40]
+    (=big5-cdp		. #x88FC)	; &I-CDP-88FC;
+    (=daikanwa		. 21558)	; &I-M-21558;
     (->subsumptive
-     ((=daikanwa	  . 21558)	; &M-21558;
-      )
-     ((=cns11643-5	  . #x4748)	; &C5-4748; [39-40]
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
+	(=ucs		    . #x2FF3)	; ⿳
+	)
+       ((=ucs		    . #x5317)	; 北
+	)
+       ((name		    . "CJK RADICAL NET FOUR")
+	(=ucs		    . #x2EB4)	; ⺴
+	)
+       ((=ucs		    . #x74E6)	; 瓦
+	))
+      (=>>ucs@cns	  . #x3F31)	; &G-CDP-88FC;
+      (=>>big5-cdp	  . #x88FC)	; &G-CDP-88FC;
+      (=>>daikanwa	  . 21558)	; &G-CDP-88FC;
+      (->subsumptive
+       ((==big5-cdp	    . #x88FC)	; &g2-CDP-88FC;
+	(==daikanwa	    . 21558)	; &g2-CDP-88FC;
+	(->subsumptive
+	 ((===daikanwa	      . 21558)	; &R-M-21558;
+	  )
+	 ((===big5-cdp	      . #x88FC)	; &R-CDP-88FC;
+	  ))
+	)
+       ((==ucs@cns	    . #x3F31)	; &g2-CU+3F31;
+	(==cns11643-5	    . #x4748)	; &g2-CU+3F31; [39-40]
+	))
       )
-     ((=ucs@unicode	  . #x3F31)	; &UU+3F31;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
+	(=ucs		    . #x2FF3)	; ⿳
+	)
+       ((=ucs		    . #x5317)	; 北
+	)
+       ((name		    . "CJK RADICAL NET THREE")
+	(=ucs		    . #x2EB3)	; ⺳
+	)
+       ((=ucs		    . #x74E6)	; 瓦
+	))
+      (=>>ucs@unicode	  . #x3F31)	; &G-UU+3F31;
+      (->subsumptive
+       ((==ucs@unicode	    . #x3F31)	; &g2-UU+3F31;
+	(==ucs@JP/hanazono  . nil)
+	))
       ))
     ))
 (define-char