(SW-JIGUGE-41720): Add U-000200BF as a corresponding modern character;

add `<-ancient@shuowen' for SW-JIGUGE-41719.
(SW-JIGUGE-41812): Add U-00022CCE and U-00022C6D as corresponding
modern characters.
(SW-JIGUGE5-41813): Use `<-denotational' instead of `<-subsumptive'
for SW-JIGUGE-41813; add `<-formed@shuowen' for SW-JIGUGE-41812.
(SW-JIGUGE4-40513): Likewise.
(SW-JIGUGE4-41814): Add U-00022A92 as a corresponding modern
character; add `<-ancient@shuowen' for SW-JIGUGE4-41812.
(SW-JIGUGE4-42017): Add `<-formed@shuowen' for SW-JIGUGE4-42016.
(SW-JIGUGE4-42213): Add `<-formed@shuowen' for SW-JIGUGE4-42212.
(SW-JIGUGE4-42501): Add `<-ancient@shuowen' for SW-JIGUGE4-42500.
(SW-JIGUGE4-42610): Add `<-formed@shuowen' for SW-JIGUGE4-42609.

diff --git a/lisp/utf-2000/ShuoWen-SR441.el b/lisp/utf-2000/ShuoWen-SR441.el
index 55e7a37..d1380ce 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR441.el
+++ b/lisp/utf-2000/ShuoWen-SR441.el
@@ -17,8 +17,15 @@
   '((shuowen-radical   . 441)  ; 手
     (=shuowen-jiguge   . 41720)        ; &SW-JIGUGE-41720;
     (<-Small-Seal@shuowen
+     ((=ucs              . #x200BF)    ; 𠂿
+      )
      ((=ucs              . #x21D24)    ; 𡴤
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge   . 41719)      ; &SW-JIGUGE-41719;
+      )
+     ((=ucs              . #x624B)     ; 手
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 41720)     ; &SW-JIGUGE5-41720;
       )
@@ -198,6 +205,10 @@
     (=shuowen-jiguge   . 41812)        ; &SW-JIGUGE-41812;
     (<-Small-Seal@shuowen
      ((=ucs              . #x22DCE)    ; 𢷎
+      )
+     ((=ucs              . #x22CCE)    ; 𢳎
+      )
+     ((=ucs              . #x22C6D)    ; 𢱭
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 41812)     ; &SW-JIGUGE5-41812;
@@ -208,13 +219,43 @@
 (define-char
   '((shuowen-radical   . 441)  ; 手
     (=shuowen-jiguge   . 41813)        ; &SW-JIGUGE-41813;
+    ))
+(define-char
+  '((<-denotational
+     ((=shuowen-jiguge   . 41813)      ; &SW-JIGUGE-41813;
+      ))
+    (shuowen-radical   . 441)  ; 手
+    (===shuowen-jiguge5 . 41813)       ; &SW-JIGUGE5-41813;
     (<-Small-Seal@shuowen
      ((=ucs              . #x62DC)     ; 拜
       ))
-    (->subsumptive
-     ((===shuowen-jiguge5 . 41813)     ; &SW-JIGUGE5-41813;
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 41812)      ; &SW-JIGUGE-41812;
+      )
+     ((=ucs              . #x22DCE)    ; 𢷎
+      )
+     ((=ucs              . #x22CCE)    ; 𢳎
+      )
+     ((=ucs              . #x22C6D)    ; 𢱭
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=shuowen-jiguge   . 41813)      ; &SW-JIGUGE-41813;
+      ))
+    (shuowen-radical   . 441)  ; 手
+    (===shuowen-jiguge4 . 40513)       ; &SW-JIGUGE4-40513;
+    (<-Small-Seal@shuowen
+     ((=ucs              . #x62DC)     ; 拜
+      ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 41812)      ; &SW-JIGUGE-41812;
+      )
+     ((=ucs              . #x22DCE)    ; 𢷎
+      )
+     ((=ucs              . #x22CCE)    ; 𢳎
       )
-     ((===shuowen-jiguge4 . 40513)     ; &SW-JIGUGE4-40513;
+     ((=ucs              . #x22C6D)    ; 𢱭
       ))
     ))
 (define-char
@@ -222,6 +263,19 @@
     (=shuowen-jiguge   . 41814)        ; &SW-JIGUGE-41814;
     (<-Small-Seal@shuowen
      ((=ucs              . #x23B13)    ; 𣬓
+      )
+     ((=ucs              . #x22A92)    ; 𢪒
+      ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge   . 41812)      ; &SW-JIGUGE-41812;
+      )
+     ((=ucs              . #x22DCE)    ; 𢷎
+      )
+     ((=ucs              . #x22CCE)    ; 𢳎
+      )
+     ((=ucs              . #x22C6D)    ; 𢱭
+      )
+     ((=ucs              . #x62DC)     ; 拜
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 41814)     ; &SW-JIGUGE5-41814;
@@ -1077,6 +1131,11 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x22C02)    ; 𢰂
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 42016)      ; &SW-JIGUGE-42016;
+      )
+     ((=ucs              . #x6455)     ; 摕
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 42017)     ; &SW-JIGUGE5-42017;
       )
@@ -1751,6 +1810,11 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x649C)     ; 撜
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 42212)      ; &SW-JIGUGE-42212;
+      )
+     ((=ucs              . #x628D)     ; 抍
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 42213)     ; &SW-JIGUGE5-42213;
       )
@@ -2783,6 +2847,11 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x28608)    ; 𨘈
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge   . 42500)      ; &SW-JIGUGE-42500;
+      )
+     ((=ucs              . #x64BB)     ; 撻
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 42501)     ; &SW-JIGUGE5-42501;
       )
@@ -3275,6 +3344,11 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x3B5F)     ; 㭟
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 42609)      ; &SW-JIGUGE-42609;
+      )
+     ((=ucs              . #x62F2)     ; 拲
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 42610)     ; &SW-JIGUGE5-42610;
       )