From ee54b28c1b7c6239615ca7be0a9664921347717c Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 8 Jul 2017 19:48:15 +0900
Subject: [PATCH] (U-0002245A): Add `sound@ja/on'; unify BC-88B0; add
 `<-ancient' for U+7533.

---
 lisp/utf-2000/Ideograph-R058-Snout.el |   23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index a7af358..46adb35 100644
--- a/lisp/utf-2000/Ideograph-R058-Snout.el
+++ b/lisp/utf-2000/Ideograph-R058-Snout.el
@@ -568,9 +568,32 @@
   '((ideographic-radical . 58)	; â¼¹
     (ideographic-strokes . 6)
     (total-strokes	 . 9)
+    (sound@ja/on	"siN")
     (=ucs		. #x2245A)	; 𢑚
     (=cns11643-6	. #x3123)	; &I-C6-3123; [17-03]
+    (=big5-cdp		. #x88B0)	; &I-CDP-88B0;
     (=daikanwa		. 09919)	; &I-M-09919;
+    (<-ancient
+     ((=ucs		  . #x7533)	; 申
+      (=daikanwa	  . 21726)	; &I-M-21726;
+      ))
+    (<-ancient*sources
+     jiyun daikanwa)
+    (->subsumptive
+     ((==ucs@iso	  . #x2245A)	; &g2-CDP-88B0;
+      (==cns11643-6	  . #x3123)	; &g2-CDP-88B0; [17-03]
+      (==big5-cdp	  . #x88B0)	; &g2-CDP-88B0;
+      (==daikanwa	  . 09919)	; &g2-CDP-88B0;
+      (->subsumptive
+       ((===daikanwa	    . 09919)	; &R-M-09919;
+	)
+       ((===cns11643-6	    . #x3123)	; &R-C6-3123; [17-03]
+	)
+       ((===ucs@iso	    . #x2245A)	; &R-U-0002245A;
+	)
+       ((===big5-cdp	    . #x88B0)	; &R-CDP-88B0;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 58)	; â¼¹
-- 
1.7.10.4