From 7e1477cd4cf3291defc7ffd82a2588ac6f75cdb4 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 2 Oct 2018 09:57:17 +0900
Subject: [PATCH] (U+605F): Add `<-formed' for UU+5147. (CB09529): New
 character. (HNG-KHI0387-0): Use `<-subsumptive' for
 g2-CB09529.

---
 lisp/utf-2000/Ideograph-R061-Heart.el |   22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R061-Heart.el b/lisp/utf-2000/Ideograph-R061-Heart.el
index e1dc2dc..2d5951f 100644
--- a/lisp/utf-2000/Ideograph-R061-Heart.el
+++ b/lisp/utf-2000/Ideograph-R061-Heart.el
@@ -8176,6 +8176,12 @@
     (=gt-pj-1		. #x576F)	; &I-GT-13239; [55-79]
     (=daikanwa		. 10573)	; &I-M-10573;
     (=shinjigen		.  2475)	; 恟
+    (<-formed
+     ((=ucs@unicode	  . #x5147)	; &AJ1-01692;
+      (=adobe-japan1-0	  . 01692)	; &AJ1-01692;
+      ))
+    (<-formed$_1*sources
+     jiyun)
     (<-interchangeable
      ((=ucs		  . #x8A7E)	; 詾
       ))
@@ -21504,8 +21510,8 @@
       )
      ((=ucs		  . #x5FC4)	; 忄
       )
-     ((=ucs@unicode	  . #x4343)	; &GT-K07393;
-      (=gt-k		  . 07393)	; &GT-K07393;
+     ((=ucs@unicode	  . #x4343)	; &MJ003628;
+      (=mj		  . 003628)	; &MJ003628;
       ))
     (=ucs@unicode	. #x612E)	; &UU+612E;
     (=ucs@JP/hanazono	. nil)
@@ -24525,12 +24531,22 @@
       )
      ((=ucs		  . #x20CEE)	; ð ³®
       ))
-    (===hng-khi		. 03870)	; &HNG010-03870;
+    (=cbeta		. 09529)	; &CB09529;
     (<-formed
      ((=ucs		  . #x618D)	; 憍
       )
      ((=ucs		  . #x9A55)	; 驕
       ))
+    (<-formed*sources
+     hng)
+    (->subsumptive
+     ((==cbeta		  . 09529)	; &g2-CB09529;
+      (->subsumptive
+       ((===hng-khi	    . 03870)	; &HNG010-03870;
+	)
+       ((===cbeta	    . 09529)	; &R-CB09529;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 61)	; â¼¼
-- 
1.7.10.4