From 48b968c17f9086714167a194fe68061831b3716a Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 27 Oct 2015 18:24:45 +0900
Subject: [PATCH] Add glyph-images of HNG-KHI. (U-00021BA7): Unify M-07531;
 add `<-ancient' for M-30116 and UU+66C1.

---
 lisp/utf-2000/Ideograph-R041-Inch.el |   88 ++++++++++++++++++++++++++++++++--
 1 file changed, 83 insertions(+), 5 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R041-Inch.el b/lisp/utf-2000/Ideograph-R041-Inch.el
index 17d0ce1..620e771 100644
--- a/lisp/utf-2000/Ideograph-R041-Inch.el
+++ b/lisp/utf-2000/Ideograph-R041-Inch.el
@@ -59,11 +59,6 @@
     (ideographic-radical . 41)	; ⼨
     (ideographic-strokes . 3)
     (total-strokes	 . 6)
-    (=decomposition@cid
-     ((=ucs		  . #x5BFA)	; 寺
-      )
-     ((=ucs		  . #xE0100)	; 󠄀
-      ))
     (=ucs@unicode	. #x5BFA)	; &AJ1-02249;
     (=adobe-japan1-0	. 02249)	; &AJ1-02249;
     (=jis-x0208		. #x3B7B)	; &I-J90-3B7B; [27-91]
@@ -76,6 +71,41 @@
     (=gt-pj-1		. #x3B7B)	; &I-GT-09324; [27-91]
     (=daikanwa		. 07414)	; &I-M-07414;
     (=shinjigen		.  1879)	; &AJ1-02249;
+    (->subsumptive
+     ((=decomposition@cid
+       ((=ucs		    . #x5BFA)	; 寺
+	)
+       ((=ucs		    . #xE0100)	; 󠄀
+	))
+      (==ucs@unicode	  . #x5BFA)	; &g2-AJ1-02249;
+      (==adobe-japan1-0	  . 02249)	; &g2-AJ1-02249;
+      (==gb2312		  . #x4B42)	; &g2-AJ1-02249; [43-34]
+      (==ks-x1001	  . #x5E51)	; &g2-AJ1-02249; [62-49]
+      (==jis-x0208	  . #x3B7B)	; &g2-AJ1-02249; [27-91]
+      (==jis-x0213-1	  . #x3B7B)	; &g2-AJ1-02249; [27-91]
+      (==gt		  . 09324)	; &g2-AJ1-02249;
+      (==gt-k		  . 01625)	; &g2-AJ1-02249;
+      (==daikanwa	  . 07414)	; &g2-AJ1-02249;
+      (==shinjigen	  .  1879)	; &g2-AJ1-02249;
+      (->subsumptive
+       ((===daikanwa	    . 07414)	; &R-M-07414;
+	)
+       ((===jis-x0208	    . #x3B7B)	; &R-J0-3B7B; [27-91]
+	(===jis-x0213-1	    . #x3B7B)	; &R-J0-3B7B; [27-91]
+	)
+       ((===adobe-japan1-0  . 02249)	; &R-AJ1-02249;
+	)
+       ((===gt		    . 09324)	; &R-GT-09324;
+	(===gt-k	    . 01625)	; &R-GT-09324;
+	)
+       ((===ucs@ks	    . #x5BFA)	; &R-K0-5E51;
+	(===ks-x1001	    . #x5E51)	; &R-K0-5E51; [62-49]
+	)
+       ((===ucs@unicode	    . #x5BFA)	; &R-UU+5BFA;
+	)
+       ((===hng-khi	    . 03440)	; &HNG010-03440;
+	))
+      ))
     ))
 (define-char
   '((<-denotational
@@ -84,7 +114,12 @@
     (ideographic-radical . 41)	; ⼨
     (ideographic-strokes . 3)
     (total-strokes	 . 6)
+    (=ucs@cns		. #x5BFA)	; &C1-4779;
     (=cns11643-1	. #x4779)	; &C1-4779; [39-89]
+    (->subsumptive
+     ((==ucs@cns	  . #x5BFA)	; &g2-CU+5BFA;
+      (==cns11643-1	  . #x4779)	; &g2-CU+5BFA; [39-89]
+      ))
     ))
 (define-char
   '((ideographic-radical . 41)	; ⼨
@@ -910,6 +945,8 @@
 	)
        ((===jef-china3	    . #x4ACC)	; &R-JC3-4ACC;
 	))
+      )
+     ((===hng-khi	  . 03450)	; &HNG010-03450;
       ))
     ))
 (define-char
@@ -1035,6 +1072,15 @@
     (ideographic-radical . 41)	; ⼨
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
+    (===hng-khi		. 00420)	; &HNG010-00420;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x5C0B)	; 尋
+      ))
+    (ideographic-radical . 41)	; ⼨
+    (ideographic-strokes . 9)
+    (total-strokes	 . 12)
     (=decomposition@cid
      ((=ucs		  . #x5C0B)	; 尋
       )
@@ -1362,7 +1408,17 @@
     (ideographic-radical . 41)	; ⼨
     (ideographic-strokes . 13)
     (total-strokes	 . 16)
+    (=ucs@cns		. #x5C0E)	; &C1-7052;
     (=cns11643-1	. #x7052)	; &C1-7052; [80-50]
+    (->subsumptive
+     ((==ucs@cns	  . #x5C0E)	; &g2-CU+5C0E;
+      (==cns11643-1	  . #x7052)	; &g2-CU+5C0E; [80-50]
+      (->subsumptive
+       ((===cns11643-1	    . #x7052)	; &R-C1-7052; [80-50]
+	)
+       ((===hng-khi	    . 00410)	; &HNG010-00410;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 41)	; ⼨
@@ -1370,6 +1426,28 @@
     (total-strokes	 . 15)
     (=ucs		. #x21BA7)	; 𡮧
     (=cns11643-7	. #x223B)	; &I-C7-223B; [02-27]
+    (=daikanwa		. 07531)	; &I-M-07531;
+    (<-ancient
+     ((=daikanwa	  . 30116)	; &M-30116;
+      )
+     ((=ucs@unicode	  . #x66C1)	; &HD-JA-5A7A;
+      (=jis-x0208	  . #x5A7A)	; &HD-JA-5A7A; [58-90]
+      (=cns11643-3	  . #x5123)	; &I-C3-5123; [49-03]
+      (=jis-x0213-1	  . #x5A7A)	; &I-JX1-5A7A; [58-90]
+      (=daikanwa	  . 14165)	; &I-M-14165;
+      ))
+    (<-ancient$_1*sources
+     shuowen daikanwa)
+    (<-ancient$_2*sources
+     zihui-bu daikanwa)
+    (->subsumptive
+     ((==daikanwa	  . 07531)	; &g2-M-07531;
+      )
+     ((==ucs@iso	  . #x21BA7)	; &g2-IU-00021BA7;
+      )
+     ((==ucs@cns	  . #x21BA7)	; &g2-CU+21BA7;
+      (==cns11643-7	  . #x223B)	; &g2-CU+21BA7; [02-27]
+      ))
     ))
 (define-char
   '((ideographic-radical . 41)	; ⼨
-- 
1.7.10.4