From 8aa209e9c8c34cb4c62e35c8324b2c199e60529d Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 20 Jun 2022 20:11:09 +0900
Subject: [PATCH] (SW-JIGUGE-42920): Add U+21708-itaiji-001 and U-0002170C as
 corresponding modern characters; add `<-ancient@shuowen'
 for SW-JIGUGE-42919. (SW-JIGUGE-43713): Add
 `<-ancient@shuowen' for SW-JIGUGE-43712.

---
 lisp/utf-2000/ShuoWen-SR443.el |   14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lisp/utf-2000/ShuoWen-SR443.el b/lisp/utf-2000/ShuoWen-SR443.el
index 2161675..5afc067 100644
--- a/lisp/utf-2000/ShuoWen-SR443.el
+++ b/lisp/utf-2000/ShuoWen-SR443.el
@@ -310,6 +310,15 @@
     (=shuowen-jiguge	. 42920)	; &SW-JIGUGE-42920;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x21708)	; 𡜈
+      )
+     ((=ucs-itaiji-001	  . #x21708)	; &U-i001+21708;
+      )
+     ((=ucs		  . #x2170C)	; 𡜌
+      ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 42919)	; &SW-JIGUGE-42919;
+      )
+     ((=ucs		  . #x59BB)	; 妻
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 42920)	; &SW-JIGUGE5-42920;
@@ -3051,6 +3060,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x22676)	; 𢙶
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 43712)	; &SW-JIGUGE-43712;
+      )
+     ((=ucs		  . #x59E6)	; 姦
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 43713)	; &SW-JIGUGE5-43713;
       )
-- 
1.7.10.4