From 3f985f3d4d66858512719c805e1ade870c82e95b Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 8 Dec 2021 04:24:51 +0900
Subject: [PATCH] (U-0002F896): Add U+38C7 as a target of `<-ancient'.
 (U-0002245E): Add `<-Zhouwen' for U+38C7.

---
 lisp/utf-2000/Ideograph-R058-Snout.el |   36 +++++++++++++++++++++++++++++++--
 1 file changed, 34 insertions(+), 2 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index e7ccd4f..2fa28af 100644
--- a/lisp/utf-2000/Ideograph-R058-Snout.el
+++ b/lisp/utf-2000/Ideograph-R058-Snout.el
@@ -1014,12 +1014,18 @@
     (=gt-pj-3		. #x4A26)	; &I-GT-12512; [42-06]
     (=daikanwa		. 49088)	; &I-M-49088;
     (<-ancient
+     ((=ucs		  . #x38C7)	; 㣇
+      )
      ((=ucs@unicode	  . #x38C7)	; &GT-12511;
       (=cns11643-4	  . #x2642)	; &GT-12511; [06-34]
       (=daikanwa	  . 09915)	; &I-M-09915;
       ))
-    (<-ancient*sources
+    (<-ancient$_1*sources
+     shuowen)
+    (<-ancient$_2*sources
      daikanwa)
+    (<-ancient*sources
+     shuowen daikanwa)
     (->subsumptive
      ((==gt		  . 12512)	; &g2-GT-12512;
       (==daikanwa	  . 49088)	; &g2-GT-12512;
@@ -1780,8 +1786,34 @@
     (ideographic-strokes . 8)
     (total-strokes	 . 11)
     (=ucs		. #x2245E)	; 𢑞
-    (=cns11643-6	. #x3F58)	; &I-C6-3F58; [31-56]
+    (<-Zhouwen
+     ((=ucs		  . #x38C7)	; 㣇
+      ))
+    (<-Zhouwen*sources
+     shuowen)
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2245E)	; 𢑞
+      ))
+    (ideographic-radical . 58)	; â¼¹
+    (ideographic-strokes . 8)
+    (total-strokes	 . 11)
+    (=ucs@iso		. #x2245E)	; &C6-3F58;
+    (=cns11643-6	. #x3F58)	; &C6-3F58; [31-56]
     (=daikanwa		. 09930)	; &I-M-09930;
+    (->subsumptive
+     ((==ucs@iso	  . #x2245E)	; &g2-M-09930;
+      (==cns11643-6	  . #x3F58)	; &g2-M-09930; [31-56]
+      (==daikanwa	  . 09930)	; &g2-M-09930;
+      (->subsumptive
+       ((===daikanwa	    . 09930)	; &R-M-09930;
+	)
+       ((===cns11643-6	    . #x3F58)	; &R-C6-3F58; [31-56]
+	)
+       ((===ucs@iso	    . #x2245E)	; &R-U-0002245E;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 58)	; â¼¹
-- 
1.7.10.4