From 73d0c934775be14949f5d7c26a19e53c50f4a2dd Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 12 Jun 2022 10:45:32 +0900
Subject: [PATCH] (SW-JIGUGE-20901): Add U-00021A9B, A-IWDSU+21A9B and
 U-00027D8E as corresponding modern characters.
 (SW-JIGUGE-20902): Add `<-ancient@shuowen' for
 SW-JIGUGE-20901.

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

diff --git a/lisp/utf-2000/ShuoWen-SR228.el b/lisp/utf-2000/ShuoWen-SR228.el
index 11a8aef..a57a930 100644
--- a/lisp/utf-2000/ShuoWen-SR228.el
+++ b/lisp/utf-2000/ShuoWen-SR228.el
@@ -409,6 +409,12 @@
   '((shuowen-radical	. 228)	; 貝
     (=shuowen-jiguge	. 20901)	; &SW-JIGUGE-20901;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x21A9B)	; 𡪛
+      )
+     ((=>ucs@iwds-1	  . #x21A9B)	; &A-IWDSU+21A9B;
+      )
+     ((=ucs		  . #x27D8E)	; 𧶎
+      )
      ((=ucs		  . #x8CD3)	; 賓
       )
      ((=ucs		  . #x8CD4)	; 賔
@@ -425,6 +431,19 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x27D89)	; 𧶉
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 20901)	; &SW-JIGUGE-20901;
+      )
+     ((=ucs		  . #x21A9B)	; 𡪛
+      )
+     ((=>ucs@iwds-1	  . #x21A9B)	; &A-IWDSU+21A9B;
+      )
+     ((=ucs		  . #x27D8E)	; 𧶎
+      )
+     ((=ucs		  . #x8CD3)	; 賓
+      )
+     ((=ucs		  . #x8CD4)	; 賔
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 20902)	; &SW-JIGUGE5-20902;
       )
-- 
1.7.10.4