From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 4 Oct 2021 02:21:22 +0000 (+0900)
Subject: (SW-JIGUGE-41720): Add U-000200BF as a corresponding modern character;
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b561fd2f259a62670f037c247df8ae7d8c542a32;p=chise%2Fxemacs-chise.git

(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
--- 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;
       )