From 67d226d53a8622cae98d179fa8bbdb2293f19a10 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 28 Nov 2024 16:37:34 +0900
Subject: [PATCH] (SW-JIGUGE-35806): Add U-00021D1D as a corresponding modern
 character. (SW-JIGUGE-35807): Add U-00021CB1 as a
 corresponding modern character. add `<-ancient@shuowen' for
 SW-JIGUGE-35806. (SW-JIGUGE-35808): Add add
 `<-ancient@shuowen' for SW-JIGUGE-35806.

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

diff --git a/lisp/utf-2000/ShuoWen-SR400.el b/lisp/utf-2000/ShuoWen-SR400.el
index 5c1d6f2..143c599 100644
--- a/lisp/utf-2000/ShuoWen-SR400.el
+++ b/lisp/utf-2000/ShuoWen-SR400.el
@@ -65,6 +65,8 @@
   '((shuowen-radical	. 400)	; 夲
     (=shuowen-jiguge	. 35806)	; &SW-JIGUGE-35806;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x21D1D)	; 𡴝
+      )
      ((=ucs		  . #x594F)	; 奏
       ))
     (->subsumptive
@@ -80,6 +82,15 @@
     (=shuowen-jiguge	. 35807)	; &SW-JIGUGE-35807;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x21CAF)	; 𡲯
+      )
+     ((=ucs		  . #x21CB1)	; 𡲱
+      ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 35806)	; &SW-JIGUGE-35806;
+      )
+     ((=ucs		  . #x21D1D)	; 𡴝
+      )
+     ((=ucs		  . #x594F)	; 奏
       ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 36307)	; &SW-JIGUGE30-36307;
@@ -95,6 +106,13 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x22F65)	; 𢽥
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 35806)	; &SW-JIGUGE-35806;
+      )
+     ((=ucs		  . #x21D1D)	; 𡴝
+      )
+     ((=ucs		  . #x594F)	; 奏
+      ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 36308)	; &SW-JIGUGE30-36308;
       )
-- 
1.7.10.4