From 6a40a07e33aef86ef7931fdce2a4cdbfa7810cf1 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 9 Jun 2017 22:31:26 +0900
Subject: [PATCH] (U-000227FD): Use `->denotational' and `->subsumptive'.
 (U+6155): Add `ideographic-structure'. (MJ011822):
 Likewise; add `<-interchangeable' for CU+6F20; add
 `->original' for M-11087. (UU+6155): Add
 `ideographic-structure'. (U-00022827): New character.

---
 lisp/utf-2000/Ideograph-R061-Heart.el |  156 ++++++++++++++++++++++++++++++---
 1 file changed, 146 insertions(+), 10 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R061-Heart.el b/lisp/utf-2000/Ideograph-R061-Heart.el
index acd6da9..ed415cd 100644
--- a/lisp/utf-2000/Ideograph-R061-Heart.el
+++ b/lisp/utf-2000/Ideograph-R061-Heart.el
@@ -23860,29 +23860,101 @@
     (=ucs@unicode	. #x6154)	; &UU+6154;
     ))
 (define-char
-  '((=>ucs		. #x227FD)	; 𢟽
+  '((ideographic-radical . 61)	; â¼¼
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x83AB)	; 莫
+      )
+     ((=ucs		  . #x5FC3)	; 心
+      ))
+    (=ucs		. #x227FD)	; 𢟽
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x227FD)	; 𢟽
+      ))
     (ideographic-radical . 61)	; â¼¼
     (ideographic-strokes . 11)
     (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@cns		  . #x83AB)	; &C1-5C7B;
+      (=cns11643-1	  . #x5C7B)	; &C1-5C7B; [60-91]
+      (=daikanwa	  . 31078)	; &I-M-31078;
+      )
+     ((=ucs		  . #x5FC3)	; 心
+      ))
     (=daikanwa		. 11087)	; &M-11087;
+    (<-ancient
+     ((=mj		  . 011822)	; &MJ011822;
+      (=daikanwa	  . 11088)	; &I-M-11088;
+      ))
+    (<-ancient*sources
+     zihui-bu daikanwa)
+    (<-original
+     ((=mj		  . 011822)	; &MJ011822;
+      ))
+    (->subsumptive
+     ((==daikanwa	  . 11087)	; &g2-M-11087;
+      ))
     ))
 (define-char
-  '((morohashi-daikanwa	11087 0 1)
-    (ideographic-radical . 61)	; â¼¼
-    (ideographic-strokes . 10)
-    (total-strokes	 . 14)
-    (=ucs		. #x227FD)	; 𢟽
-    ))
-(define-char
-  '((=>ucs		. #x227FD)	; 𢟽
-    (morohashi-daikanwa	11087 0 2)
+  '((<-denotational
+     ((=ucs		  . #x227FD)	; 𢟽
+      ))
     (ideographic-radical . 61)	; â¼¼
     (ideographic-strokes . 11)
     (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs-var-002	  . #x83AB)	; &U-v002+83AB;
+      )
+     ((=ucs		  . #x5FC3)	; 心
+      ))
+    (=ucs@cns		. #x227FD)	; &C7-2277;
     (=cns11643-7	. #x2277)	; &C7-2277; [02-87]
+    (->subsumptive
+     ((==ucs@cns	  . #x227FD)	; &g2-CU+227FD;
+      (==cns11643-7	  . #x2277)	; &g2-CU+227FD; [02-87]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x227FD)	; 𢟽
+      ))
+    (ideographic-radical . 61)	; â¼¼
+    (ideographic-strokes . 10)
+    (total-strokes	 . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@unicode	  . #x83AB)	; &MJ022034;
+      (=mj		  . 022034)	; &MJ022034;
+      )
+     ((=ucs		  . #x5FC3)	; 心
+      ))
+    (=ucs@iso		. #x227FD)	; &U-000227FD;
+    (->subsumptive
+     ((==ucs@iso	  . #x227FD)	; &g2-IU-000227FD;
+      ))
     ))
 (define-char
   '((ideographic-radical . 61)	; â¼¼
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x83AB)	; 莫
+      )
+     ((=ucs		  . #x38FA)	; 㣺
+      ))
     (=ucs		. #x6155)	; 慕
     (=big5		. #xBC7D)	; &I-B-BC7D;
     ))
@@ -23893,10 +23965,30 @@
     (ideographic-radical . 61)	; â¼¼
     (ideographic-strokes . 11)
     (total-strokes	 . 15)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@cns		  . #x83AB)	; &C1-5C7B;
+      (=cns11643-1	  . #x5C7B)	; &C1-5C7B; [60-91]
+      (=daikanwa	  . 31078)	; &I-M-31078;
+      )
+     ((=ucs@jis		  . #x38FA)	; &AJ1-13852;
+      (=adobe-japan1-4	  . 13852)	; &AJ1-13852;
+      ))
     (=mj		. 011822)	; &MJ011822;
     (=cns11643-1	. #x6C67)	; &I-C1-6C67; [76-71]
     (=hanyo-denshi/ks	. 125690)	; &MJ011822;
     (=daikanwa		. 11088)	; &I-M-11088;
+    (<-interchangeable
+     ((=ucs@cns		  . #x6F20)	; &MJ015839;
+      (=mj		  . 015839)	; &MJ015839;
+      ))
+    (->original
+     ((=daikanwa	  . 11087)	; &M-11087;
+      ))
+    (->original*sources
+     daikanwa)
     (->subsumptive
      ((=decomposition@hanyo-denshi
        ((=ucs		    . #x6155)	; 慕
@@ -23936,6 +24028,16 @@
     (ideographic-radical . 61)	; â¼¼
     (ideographic-strokes . 10)
     (total-strokes	 . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@unicode	  . #x83AB)	; &MJ022034;
+      (=mj		  . 022034)	; &MJ022034;
+      )
+     ((=ucs@jis		  . #x38FA)	; &AJ1-13852;
+      (=adobe-japan1-4	  . 13852)	; &AJ1-13852;
+      ))
     (=ucs@unicode	. #x6155)	; &MJ011821;
     (=mj		. 011821)	; &MJ011821;
     (=adobe-japan1-0	. 03641)	; &I-AJ1-03641;
@@ -28172,6 +28274,40 @@
     ))
 (define-char
   '((ideographic-radical . 61)	; â¼¼
+    (ideographic-strokes . 11)
+    (total-strokes	 . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x5FC4)	; 忄
+      )
+     ((=ucs		  . #x21569)	; 𡕩
+      ))
+    (=ucs		. #x22827)	; 𢠧
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x22827)	; 𢠧
+      ))
+    (ideographic-radical . 61)	; â¼¼
+    (ideographic-strokes . 11)
+    (total-strokes	 . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x5FC4)	; 忄
+      )
+     ((=ucs@JP/hanazono	  . #x21569)	; &hanaJU+21569;
+      ))
+    (=ucs@iso		. #x22827)	; &U-00022827;
+    (->subsumptive
+     ((==ucs@iso	  . #x22827)	; &g2-IU-00022827;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 61)	; â¼¼
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
-- 
1.7.10.4