From f06e6521aa93dbf4d2f9b79e1f4567bd8eeb03cc Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 9 Nov 2015 18:55:07 +0900
Subject: [PATCH] (U+6614): Use `->denotational' to add U+6614-var-001.
 (U+6614-var-001): New character. (M-14056): Add
 representative node. (U+3B05-var-002): New character; add
 `<-denotational' for U+3B05. (UU+3B05): Add representative
 node. (U-000232F5): Use `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R072-Sun.el |  157 +++++++++++++++++++++++++++++++----
 1 file changed, 139 insertions(+), 18 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 7ddca20..51fd5bb 100644
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -1807,10 +1807,25 @@
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
+    (=ucs		. #x6614)	; 昔
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x6614)	; 昔
+      ))
+    (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 4)
     (total-strokes	 . 8)
-    (=ucs		. #x6614)	; 昔
-    (=jis-x0208		. #x404E)	; &I-J90-404E; [32-46]
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x9FB7)	; é¾·
+      )
+     ((=ucs		  . #x65E5)	; 日
+      ))
+    (=ucs@unicode	. #x6614)	; &GT-17450;
+    (=jis-x0208		. #x404E)	; &GT-17450; [32-46]
     (=gb2312		. #x4E74)	; &I-G0-4E74; [46-84]
     (=ks-x1001		. #x602E)	; &I-K0-602E; [64-14]
     (=cns11643-1	. #x4D77)	; &I-C1-4D77; [45-87]
@@ -1820,7 +1835,26 @@
     (=gt-k		. 03760)	; &I-GT-K03760;
     (=gt-pj-1		. #x404E)	; &I-GT-17450; [32-46]
     (=daikanwa		. 13816)	; &I-M-13816;
-    (=shinjigen		.  3286)	; 昔
+    (=shinjigen		.  3286)	; &GT-17450;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x6614)	; 昔
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 5)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
+      (=ucs		  . #x2FF3)	; ⿳
+      )
+     ((=ucs		  . #x535D)	; 卝
+      )
+     ((=ucs		  . #x4E00)	; 一
+      )
+     ((=ucs		  . #x65E5)	; 日
+      ))
+    (=ucs-var-001	. #x6614)	; &U-v001+6614;
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
@@ -6472,7 +6506,44 @@
     (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 9)
     (total-strokes	 . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=big5-cdp	  . #x8CBF)	; &CDP-8CBF;
+      )
+     ((=ucs		  . #x65B9)	; 方
+      ))
     (=daikanwa		. 14056)	; &M-14056;
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=big5-cdp	    . #x8CBF)	; &CDP-8CBF;
+	)
+       ((==ucs@unicode	    . #x65B9)	; &g2-AJ1-03661;
+	(==adobe-japan1-0   . 03661)	; &g2-AJ1-03661;
+	))
+      (==daikanwa	  . 14056)	; &g2-M-14056;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x3B05)	; 㬅
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 8)
+    (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=big5-cdp	  . #x8CBF)	; &CDP-8CBF;
+      )
+     ((=ucs		  . #x4E07)	; 万
+      ))
+    (=ucs-var-002	. #x3B05)	; &U-v002+3B05;
     ))
 (define-char
   '((<-denotational
@@ -6481,9 +6552,41 @@
     (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 9)
     (total-strokes	 . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
+      (=ucs		  . #x2FF3)	; ⿳
+      )
+     ((=ucs		  . #x65E5)	; 日
+      )
+     ((name		  . "CJK RADICAL EYE")
+      (=ucs		  . #x2EAB)	; ⺫
+      )
+     ((=ucs		  . #x65B9)	; 方
+      ))
     (=ucs@unicode	. #x3B05)	; &C3-415A;
     (=cns11643-3	. #x415A)	; &C3-415A; [33-58]
-    (=hanziku-4		. #xE3CE)	; &I-HZK04-E3CE;
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
+	(=ucs		    . #x2FF3)	; ⿳
+	)
+       ((=ucs		    . #x65E5)	; 日
+	)
+       ((=big5-cdp	    . #x8B48)	; &GT-36329;
+	)
+       ((==ucs@unicode	    . #x65B9)	; &g2-AJ1-03661;
+	(==adobe-japan1-0   . 03661)	; &g2-AJ1-03661;
+	))
+      (==ucs@unicode	  . #x3B05)	; &g2-UU+3B05;
+      (==cns11643-3	  . #x415A)	; &g2-UU+3B05; [33-58]
+      (->subsumptive
+       ((===cns11643-3	    . #x415A)	; &R-C3-415A; [33-58]
+	)
+       ((===ucs@unicode	    . #x3B05)	; &R-UU+3B05;
+	)
+       ((=hanziku-4	    . #xE3CE)	; &HZK04-E3CE;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
@@ -10551,24 +10654,42 @@
      ((=ucs		  . #x6A02)	; 樂
       ))
     (=ucs		. #x232F5)	; 𣋵
+    (=cns11643-5	. #x6822)	; &I-C5-6822; [72-02]
     (=daikanwa		. 14240)	; &I-M-14240;
     (=cbeta		. 05366)	; &I-CB05366;
-    ))
-(define-char
-  '((=>ucs		. #x232F5)	; 𣋵
-    (morohashi-daikanwa	14240 0 1)
-    (ideographic-radical . 72)	; ⽇
-    (ideographic-strokes . 15)
-    (total-strokes	 . 19)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=ucs		  . #x65E5)	; 日
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=ucs		    . #x65E5)	; 日
+	)
+       ((==ucs@unicode	    . #x6A02)	; &g2-GT-19659;
+	(==jis-x0208	    . #x5C5B)	; &g2-GT-19659; [60-59]
+	))
+      (==ucs@iso	  . #x232F5)	; &g2-M-14240;
+      (==daikanwa	  . 14240)	; &g2-M-14240;
+      (==cbeta		  . 05366)	; &g2-M-14240;
+      (->subsumptive
+       ((===daikanwa	    . 14240)	; &R-M-14240;
+	)
+       ((===ucs@iso	    . #x232F5)	; &R-U-000232F5;
+	)
+       ((===cbeta	    . 05366)	; &R-CB05366;
+	))
       )
-     ((=cns11643-1	  . #x6D40)	; &C1-6D40; [77-32]
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=ucs		    . #x65E5)	; 日
+	)
+       ((==ucs@cns	    . #x6A02)	; &g2-CU+6A02;
+	(==cns11643-1	    . #x6D40)	; &g2-CU+6A02; [77-32]
+	))
+      (==ucs@cns	  . #x232F5)	; &g2-CU+232F5;
+      (==cns11643-5	  . #x6822)	; &g2-CU+232F5; [72-02]
       ))
-    (=cns11643-5	. #x6822)	; &C5-6822; [72-02]
     ))
 (define-char
   '((ideographic-radical . 72)	; ⽇
-- 
1.7.10.4