From 3c4a49ac4213b6247c09744c3169043335fa2cdc Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 2 Mar 2023 03:42:46 +0900
Subject: [PATCH] (SW-JIGUGE-10019): Add U-000200A6 and U-00024C03 as
 corresponding modern characters. (SW-JIGUGE-10100): Use
 U-00024C06 instead of U-000200A6 as the corresponding
 modern character; add `<-ancient@shuowen' for
 SW-JIGUGE-10019.

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

diff --git a/lisp/utf-2000/ShuoWen-SR095.el b/lisp/utf-2000/ShuoWen-SR095.el
index 7df8a93..23f895d 100644
--- a/lisp/utf-2000/ShuoWen-SR095.el
+++ b/lisp/utf-2000/ShuoWen-SR095.el
@@ -3,6 +3,10 @@
   '((shuowen-radical	. 95)	; 用
     (=shuowen-jiguge	. 10019)	; &SW-JIGUGE-10019;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x200A6)	; 𠂦
+      )
+     ((=ucs		  . #x24C03)	; 𤰃
+      )
      ((=ucs		  . #x7528)	; 用
       ))
     (->subsumptive
@@ -17,7 +21,16 @@
   '((shuowen-radical	. 95)	; 用
     (=shuowen-jiguge	. 10100)	; &SW-JIGUGE-10100;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x24C06)	; 𤰆
+      ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 10019)	; &SW-JIGUGE-10019;
+      )
      ((=ucs		  . #x200A6)	; 𠂦
+      )
+     ((=ucs		  . #x24C03)	; 𤰃
+      )
+     ((=ucs		  . #x7528)	; 用
       ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 10600)	; &SW-JIGUGE30-10600;
-- 
1.7.10.4