From e480c65a3d18531a75a9b6e1d7a979ca755fd787 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 28 Oct 2021 17:18:35 +0900
Subject: [PATCH] (SW-JIGUGE-47129): Add U-0002125B as a corresponding modern
 character. (SW-JIGUGE-47222): Add U-0002128E and U-00020C6F
 as corresponding modern characters. (SW-JIGUGE-47223): Add
 `<-ancient@shuowen' for SW-JIGUGE-47222.

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

diff --git a/lisp/utf-2000/ShuoWen-SR480.el b/lisp/utf-2000/ShuoWen-SR480.el
index f526810..ed2f9cb 100644
--- a/lisp/utf-2000/ShuoWen-SR480.el
+++ b/lisp/utf-2000/ShuoWen-SR480.el
@@ -387,6 +387,8 @@
   '((shuowen-radical	. 480)	; 土
     (=shuowen-jiguge	. 47129)	; &SW-JIGUGE-47129;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x2125B)	; 𡉛
+      )
      ((=ucs		  . #x572A)	; 圪
       ))
     (->subsumptive
@@ -676,6 +678,10 @@
     (=shuowen-jiguge	. 47222)	; &SW-JIGUGE-47222;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x212F2)	; 𡋲
+      )
+     ((=ucs		  . #x2128E)	; 𡊎
+      )
+     ((=ucs		  . #x20C6F)	; 𠱯
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 47222)	; &SW-JIGUGE5-47222;
@@ -689,6 +695,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x5750)	; 坐
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 47222)	; &SW-JIGUGE-47222;
+      )
+     ((=ucs		  . #x212F2)	; 𡋲
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 47223)	; &SW-JIGUGE5-47223;
       )
-- 
1.7.10.4