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

diff --git a/lisp/utf-2000/ShuoWen-SR400.el b/lisp/utf-2000/ShuoWen-SR400.el
index 5c1d6f2..143c599 100644 (file)
--- 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;
       )