From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 18 Dec 2022 05:46:37 +0000 (+0900)
Subject: (SW-JIGUGE-31106): Add U-00026C83 as a corresponding modern character.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=37e96d5307adb58241cfb72669655293fb86e7a2;p=chise%2Fxemacs-chise.git

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