From c7b1f7526b5a3f0cf0e1a49b968f3b329206ef51 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 9 Jul 2022 10:28:33 +0900
Subject: [PATCH] (SW-JIGUGE-50809): Add U-00025745 and U-00025744 as
 corresponding modern characters. (SW-JIGUGE-50811): Add
 `<-ancient@shuowen' for SW-JIGUGE-50810. (SW-JIGUGE-50902):
 Add `<-ancient@shuowen' for SW-JIGUGE-50901.

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

diff --git a/lisp/utf-2000/ShuoWen-SR511.el b/lisp/utf-2000/ShuoWen-SR511.el
index 81fb9cc..c8e7a60 100644
--- a/lisp/utf-2000/ShuoWen-SR511.el
+++ b/lisp/utf-2000/ShuoWen-SR511.el
@@ -51,6 +51,10 @@
   '((shuowen-radical	. 511)	; 禸
     (=shuowen-jiguge	. 50809)	; &SW-JIGUGE-50809;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x25745)	; 𥝅
+      )
+     ((=ucs		  . #x25744)	; 𥝄
+      )
      ((=ucs		  . #x842C)	; 萬
       ))
     (->subsumptive
@@ -77,6 +81,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x2573C)	; 𥜼
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 50810)	; &SW-JIGUGE-50810;
+      )
+     ((=ucs		  . #x79B9)	; 禹
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 50811)	; &SW-JIGUGE5-50811;
       )
@@ -113,6 +122,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x25741)	; 𥝁
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 50901)	; &SW-JIGUGE-50901;
+      )
+     ((=ucs		  . #x79BC)	; 禼
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 50902)	; &SW-JIGUGE5-50902;
       )
-- 
1.7.10.4