(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.

diff --git a/lisp/utf-2000/ShuoWen-SR511.el b/lisp/utf-2000/ShuoWen-SR511.el
index 81fb9cc..c8e7a60 100644 (file)
--- 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;
       )