From 32336566a62a184e2858cd89d70a87808604498a Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 4 Oct 2021 09:06:44 +0900
Subject: [PATCH] (SW-JIGUGE-42916): Add `<-Small-Seal@shuowen' for
 U-0002157D, U-0002453F, U-00021580 and U-0002157C; add
 `<-Zhouwen@shuowen' for SW-JIGUGE-42915; add `<-ancient'
 for SW-JIGUGE-22504. (SW-JIGUGE5-42916): Omit
 `<-Small-Seal@shuowen'. (SW-JIGUGE4-41616): Ditto.
 (SW-JIGUGE-43015): Add U+36EE as a corresponding modern
 character.

---
 lisp/utf-2000/ShuoWen-SR443.el |  105 +++++++++-------------------------------
 1 file changed, 23 insertions(+), 82 deletions(-)

diff --git a/lisp/utf-2000/ShuoWen-SR443.el b/lisp/utf-2000/ShuoWen-SR443.el
index f508cbe..2161675 100644
--- a/lisp/utf-2000/ShuoWen-SR443.el
+++ b/lisp/utf-2000/ShuoWen-SR443.el
@@ -242,92 +242,31 @@
 (define-char
   '((shuowen-radical	. 443)	; 女
     (=shuowen-jiguge	. 42916)	; &SW-JIGUGE-42916;
+    (<-Small-Seal@shuowen
+     ((=ucs		  . #x2157D)	; 𡕽
+      )
+     ((=ucs		  . #x2453F)	; 𤔿
+      )
+     ((=ucs		  . #x21580)	; 𡖀
+      )
+     ((=ucs		  . #x2157C)	; 𡕼
+      ))
+    (<-Zhouwen@shuowen
+     ((=shuowen-jiguge	  . 42915)	; &SW-JIGUGE-42915;
+      )
+     ((=ucs		  . #x5A5A)	; 婚
+      ))
+    (<-ancient
+     ((=shuowen-jiguge	  . 22504)	; &SW-JIGUGE-22504;
+      )
+     ((=ucs		  . #x660F)	; 昏
+      ))
+    (<-ancient*sources
+     shuowen-jiguge=49912)
     (->subsumptive
      ((===shuowen-jiguge5 . 42916)	; &SW-JIGUGE5-42916;
-      (<-Small-Seal@shuowen
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	  (=ucs		      . #x2FF1)	; ⿱
-	  )
-	 ((name		      . "CJK RADICAL PAW ONE")
-	  (=ucs		      . #x2EA4)	; ⺤
-	  )
-	 ((ideographic-structure
-	   ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
-	    (=ucs		. #x2FF8)	; ⿸
-	    )
-	   ((=ucs		. #x5C38)	; å°¸
-	    )
-	   ((ideographic-structure
-	     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	      (=ucs		  . #x2FF1)	; ⿱
-	      )
-	     ((ideographic-structure
-	       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO MIDDLE AND RIGHT")
-		(=ucs		    . #x2FF2)	; ⿲
-		)
-	       ((=ucs		    . #x6B62)	; æ­¢
-		)
-	       ((ideographic-structure
-		 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-		  (=ucs		      . #x2FF0)	; â¿°
-		  )
-		 ((=ucs		      . #x4E28)	; 丨
-		  )
-		 ((=ucs		      . #x4E28)	; 丨
-		  ))
-		)
-	       ((=ucs		    . #x5DF3)	; å·³
-		))
-	      )
-	     ((=ucs		  . #x5902)	; 夂
-	      ))
-	    ))
-	  ))
-	))
       )
      ((===shuowen-jiguge4 . 41616)	; &SW-JIGUGE4-41616;
-      (<-Small-Seal@shuowen
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	  (=ucs		      . #x2FF1)	; ⿱
-	  )
-	 ((name		      . "CJK RADICAL PAW ONE")
-	  (=ucs		      . #x2EA4)	; ⺤
-	  )
-	 ((ideographic-structure
-	   ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
-	    (=ucs		. #x2FF8)	; ⿸
-	    )
-	   ((=ucs		. #x5C38)	; å°¸
-	    )
-	   ((ideographic-structure
-	     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	      (=ucs		  . #x2FF1)	; ⿱
-	      )
-	     ((ideographic-structure
-	       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO MIDDLE AND RIGHT")
-		(=ucs		    . #x2FF2)	; ⿲
-		)
-	       ((=ucs		    . #x6B62)	; æ­¢
-		)
-	       ((ideographic-structure
-		 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-		  (=ucs		      . #x2FF0)	; â¿°
-		  )
-		 ((=ucs		      . #x4E28)	; 丨
-		  )
-		 ((=ucs		      . #x4E28)	; 丨
-		  ))
-		)
-	       ((=ucs		    . #x5DF3)	; å·³
-		))
-	      )
-	     ((=ucs		  . #x5902)	; 夂
-	      ))
-	    ))
-	  ))
-	))
       ))
     ))
 (define-char
@@ -646,6 +585,8 @@
   '((shuowen-radical	. 443)	; 女
     (=shuowen-jiguge	. 43015)	; &SW-JIGUGE-43015;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x36EE)	; 㛮
+      )
      ((=ucs		  . #x5AC2)	; 嫂
       ))
     (->subsumptive
-- 
1.7.10.4