(SW-JIGUGE-31106): Add U-00026C83 as a corresponding modern character.

(SW-JIGUGE-31107): Add `<-formed@shuowen' for SW-JIGUGE-31106.
(SW-JIGUGE-31108): Add `<-formed@shuowen' for SW-JIGUGE-31106.
(SW-JIGUGE-31109): Add U-00026B96, U+7F90 and U+8A98 as corresponding
modern characters; add `<-ancient@shuowen' for SW-JIGUGE-31106.

diff --git a/lisp/utf-2000/ShuoWen-SR348.el b/lisp/utf-2000/ShuoWen-SR348.el
index c6d45c5..34ae15a 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR348.el
+++ b/lisp/utf-2000/ShuoWen-SR348.el
@@ -31,6 +31,8 @@
   '((shuowen-radical   . 348)  ; 厶
     (=shuowen-jiguge   . 31106)        ; &SW-JIGUGE-31106;
     (<-Small-Seal@shuowen
+     ((=ucs              . #x26C83)    ; 𦲃
+      )
      ((=ucs              . #x3557)     ; 㕗
       ))
     (->subsumptive
@@ -47,6 +49,13 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x8A98)     ; 誘
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 31106)      ; &SW-JIGUGE-31106;
+      )
+     ((=ucs              . #x26C83)    ; 𦲃
+      )
+     ((=ucs              . #x3557)     ; 㕗
+      ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 32107)  ; &SW-JIGUGE30-32107;
       )
@@ -61,6 +70,15 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x46FB)     ; 䛻
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 31106)      ; &SW-JIGUGE-31106;
+      )
+     ((=ucs              . #x26C83)    ; 𦲃
+      )
+     ((=ucs              . #x3557)     ; 㕗
+      )
+     ((=ucs              . #x8A98)     ; 誘
+      ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 32108)  ; &SW-JIGUGE30-32108;
       )
@@ -74,6 +92,19 @@
     (=shuowen-jiguge   . 31109)        ; &SW-JIGUGE-31109;
     (<-Small-Seal@shuowen
      ((=ucs              . #x7F91)     ; 羑
+      )
+     ((=ucs              . #x26B96)    ; 𦮖
+      )
+     ((=ucs              . #x7F90)     ; 羐
+      )
+     ((=ucs              . #x8A98)     ; 誘
+      ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge   . 31106)      ; &SW-JIGUGE-31106;
+      )
+     ((=ucs              . #x26C83)    ; 𦲃
+      )
+     ((=ucs              . #x3557)     ; 㕗
       ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 32109)  ; &SW-JIGUGE30-32109;