From 81c2cbb6627cc2b6a5ee46ad7c40cc4ecffe344a Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 26 Jun 2022 09:14:42 +0900
Subject: [PATCH] (SW-JIGUGE-46629): Add U-0002716A as a corresponding modern
 character. (SW-JIGUGE-46630): Add `<-Small-Seal@shuowen'
 for U-000229F8 and U-000229ED; add `<-ancient@shuowen' for
 SW-JIGUGE-46629.

---
 lisp/utf-2000/ShuoWen-SR472.el |   48 ++++++++++++----------------------------
 1 file changed, 14 insertions(+), 34 deletions(-)

diff --git a/lisp/utf-2000/ShuoWen-SR472.el b/lisp/utf-2000/ShuoWen-SR472.el
index 3d4e7e1..e46265c 100644
--- a/lisp/utf-2000/ShuoWen-SR472.el
+++ b/lisp/utf-2000/ShuoWen-SR472.el
@@ -435,6 +435,8 @@
   '((shuowen-radical	. 472)	; 䖵
     (=shuowen-jiguge	. 46629)	; &SW-JIGUGE-46629;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x2716A)	; 𧅪
+      )
      ((=ucs		  . #x8822)	; è ¢
       ))
     (->subsumptive
@@ -446,43 +448,21 @@
 (define-char
   '((shuowen-radical	. 472)	; 䖵
     (=shuowen-jiguge	. 46630)	; &SW-JIGUGE-46630;
+    (<-Small-Seal@shuowen
+     ((=ucs		  . #x229F8)	; 𢧸
+      )
+     ((=ucs		  . #x229ED)	; 𢧭
+      ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 46629)	; &SW-JIGUGE-46629;
+      )
+     ((=ucs		  . #x2716A)	; 𧅪
+      )
+     ((=ucs		  . #x8822)	; è ¢
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 46630)	; &SW-JIGUGE5-46630;
-      (<-Small-Seal@shuowen
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
-	  (=ucs		      . #x2FF9)	; ⿹
-	  )
-	 ((=ucs		      . #x2298F)	; 𢦏
-	  )
-	 ((ideographic-structure
-	   ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	    (=ucs		. #x2FF1)	; ⿱
-	    )
-	   ((=ucs		. #x5C6F)	; 屯
-	    )
-	   ((=ucs		. #x65E5)	; 日
-	    ))
-	  ))
-	))
       )
      ((===shuowen-jiguge4 . 45630)	; &SW-JIGUGE4-45630;
-      (<-Small-Seal@shuowen
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
-	  (=ucs		      . #x2FF9)	; ⿹
-	  )
-	 ((=ucs		      . #x2298F)	; 𢦏
-	  )
-	 ((ideographic-structure
-	   ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	    (=ucs		. #x2FF1)	; ⿱
-	    )
-	   ((=ucs		. #x5C6F)	; 屯
-	    )
-	   ((=ucs		. #x65E5)	; 日
-	    ))
-	  ))
-	))
       ))
     ))
-- 
1.7.10.4