(SW-JIGUGE-05005): Add `<-ancient@shuowen' for SW-JIGUGE4-04904 and

SW-JIGUGE-05004.
(SW-JIGUGE-05006): Add U-00023954 as a corresponding modern character;
add `<-ancient@shuowen' for SW-JIGUGE4-04904 and SW-JIGUGE-05004.

diff --git a/lisp/utf-2000/ShuoWen-SR031.el b/lisp/utf-2000/ShuoWen-SR031.el
index 0c609c7..b1016e1 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR031.el
+++ b/lisp/utf-2000/ShuoWen-SR031.el
@@ -33,6 +33,13 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x3C4F)     ; 㱏
       ))
+    (<-ancient@shuowen
+     ((===shuowen-jiguge4 . 04904)     ; &SW-JIGUGE4-04904;
+      )
+     ((=shuowen-jiguge   . 05004)      ; &SW-JIGUGE-05004;
+      )
+     ((=ucs              . #x6B63)     ; 正
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 05005)     ; &SW-JIGUGE5-05005;
       )
@@ -44,6 +51,15 @@
     (=shuowen-jiguge   . 05006)        ; &SW-JIGUGE-05006;
     (<-Small-Seal@shuowen
      ((=ucs              . #x27FB8)    ; 𧾸
+      )
+     ((=ucs              . #x23954)    ; 𣥔
+      ))
+    (<-ancient@shuowen
+     ((===shuowen-jiguge4 . 04904)     ; &SW-JIGUGE4-04904;
+      )
+     ((=shuowen-jiguge   . 05004)      ; &SW-JIGUGE-05004;
+      )
+     ((=ucs              . #x6B63)     ; 正
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 05006)     ; &SW-JIGUGE5-05006;