From cbc91c70b5571f97abd7f902e26bae542334b6e7 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 26 Oct 2016 15:15:20 +0900
Subject: [PATCH] (U-000244DA): Use it instead of A-M-19638; omit
 `<-denotational' for A-M-19638. (A-MJ040193): Use it
 instead of G-M-19638; unify A-M-19638; use `<-denotational'
 for U-000244DA. (M-19638): Use A-MJ040193 instead of
 G-M-19638 as the mother; unify MJ040193 and KOSEKI-221170;
 apply new conventions for glyph granularity. (A-IU+244DA):
 Use it instead of U-000244DA; use U-000244DA instead of
 A-M-19638 as the mother. (IU+244DA): Omit `<-unknown' for
 M-19638.

---
 lisp/utf-2000/Ideograph-R086-Fire.el |   51 +++++++++++++++++++---------------
 1 file changed, 28 insertions(+), 23 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R086-Fire.el b/lisp/utf-2000/Ideograph-R086-Fire.el
index d9f58fa..c8b94dd 100644
--- a/lisp/utf-2000/Ideograph-R086-Fire.el
+++ b/lisp/utf-2000/Ideograph-R086-Fire.el
@@ -20938,11 +20938,11 @@
     ))
 (define-char
   '((ideographic-radical . 86)	; ⽕
-    (=>daikanwa		. 19638)	; &A-M-19638;
+    (=ucs		. #x244DA)	; 𤓚
     ))
 (define-char
   '((<-denotational
-     ((=>daikanwa	  . 19638)	; &A-M-19638;
+     ((=ucs		  . #x244DA)	; 𤓚
       ))
     (ideographic-radical . 86)	; ⽕
     (ideographic-structure
@@ -20960,11 +20960,12 @@
        ((=ucs		    . #x706C)	; 灬
 	))
       ))
-    (=>>daikanwa	. 19638)	; &G-M-19638;
+    (=>mj		. 040193)	; &A-MJ040193;
+    (=>daikanwa		. 19638)	; &A-MJ040193;
     ))
 (define-char
   '((<-denotational
-     ((=>>daikanwa	  . 19638)	; &G-M-19638;
+     ((=>mj		  . 040193)	; &A-MJ040193;
       ))
     (ideographic-radical . 86)	; ⽕
     (ideographic-strokes . 21)
@@ -20980,14 +20981,16 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((=cns11643-4	    . #x5254)	; &C4-5254; [50-52]
+       ((=ucs@cns	    . #x263C1)	; &C4-5254;
+	(=cns11643-4	    . #x5254)	; &C4-5254; [50-52]
 	(=daikanwa	    . 28554)	; &I-M-28554;
 	)
        ((=ucs		    . #x706C)	; 灬
 	))
       ))
-    (=daikanwa		. 19638)	; &M-19638;
-    (=hanziku-6		. #xD1BD)	; &I-HZK06-D1BD;
+    (=mj		. 040193)	; &MJ040193;
+    (=koseki		. 221170)	; &MJ040193;
+    (=daikanwa		. 19638)	; &I-M-19638;
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -20999,18 +21002,28 @@
 	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	  (=ucs		      . #x2FF1)	; ⿱
 	  )
-	 ((=cns11643-4	      . #x5254)	; &C4-5254; [50-52]
-	  (=daikanwa	      . 28554)	; &I-M-28554;
+	 ((==ucs@cns	      . #x263C1)	; &g2-M-28554;
+	  (==daikanwa	      . 28554)	; &g2-M-28554;
 	  )
-	 ((=ucs		      . #x706C)	; 灬
+	 ((name		      . "CJK RADICAL FIRE")
+	  (=ucs		      . #x2EA3)	; ⺣
 	  ))
 	))
-      (==daikanwa	  . 19638)	; &g2-M-19638;
+      (==mj		  . 040193)	; &g2-MJ040193;
+      (==koseki		  . 221170)	; &g2-MJ040193;
+      (==daikanwa	  . 19638)	; &g2-MJ040193;
+      (->subsumptive
+       ((===daikanwa	    . 19638)	; &R-M-19638;
+	)
+       ((===mj		    . 040193)	; &R-MJ040193;
+	)
+       ((=hanziku-6	    . #xD1BD)	; &HZK06-D1BD;
+	))
       ))
     ))
 (define-char
   '((<-denotational
-     ((=>daikanwa	  . 19638)	; &A-M-19638;
+     ((=ucs		  . #x244DA)	; 𤓚
       ))
     (ideographic-radical . 86)	; ⽕
     (ideographic-structure
@@ -21028,7 +21041,7 @@
        ((=ucs		    . #x706C)	; 灬
 	))
       ))
-    (=ucs		. #x244DA)	; 𤓚
+    (=>ucs@iso		. #x244DA)	; &A-IU+244DA;
     ))
 (define-char
   '((<-denotational
@@ -21047,22 +21060,14 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((=ucs@unicode	    . #x7FB2)	; &GT-36748;
-	(=jis-x0208	    . #x663C)	; &GT-36748; [70-28]
-	(=gb2312	    . #x744B)	; &I-G0-744B; [84-43]
-	(=ks-x1001	    . #x7D7D)	; &I-K0-7D7D; [93-93]
-	(=cns11643-1	    . #x7172)	; &I-C1-7172; [81-82]
-	(=jis-x0213-1	    . #x663C)	; &I-JX1-663C; [70-28]
-	(=daikanwa	    . 28552)	; &I-M-28552;
+       ((=ucs@unicode	    . #x7FB2)	; &AJ1-06185;
+	(=adobe-japan1-0    . 06185)	; &AJ1-06185;
 	)
        ((=ucs		    . #x706C)	; 灬
 	))
       ))
     (=ucs@iso		. #x244DA)	; &C5-7768;
     (=cns11643-5	. #x7768)	; &C5-7768; [87-72]
-    (<-unknown
-     ((=daikanwa	  . 19638)	; &M-19638;
-      ))
     (->subsumptive
      ((==ucs@iso	  . #x244DA)	; &g2-IU-000244DA;
       (==cns11643-5	  . #x7768)	; &g2-IU-000244DA; [87-72]
-- 
1.7.10.4