From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 2 Jul 2022 23:21:37 +0000 (+0900)
Subject: Use `=>shuowen-jiguge' instead of `=shuowen-jiguge' as the CCS-feature
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b83ca76abbf25738a03054c18870aae5c6e47d97;p=chise%2Fxemacs-chise.git

Use `=>shuowen-jiguge' instead of `=shuowen-jiguge' as the CCS-feature
of abstract character of Shuowen-Jiguge which has `->denotational' to
combine some Small-Seal glyphs.
(SW-JIGUGE5-46915): Add U+9F05 as a corresponding modern character.
(SW-JIGUGE4-45915): Ditto.
(SW-JIGUGE-46916): Add U-00027332 and U+8718 as corresponding modern
characters.
---

diff --git a/lisp/utf-2000/ShuoWen-SR477.el b/lisp/utf-2000/ShuoWen-SR477.el
index 9ca3469..7905a82 100644
--- a/lisp/utf-2000/ShuoWen-SR477.el
+++ b/lisp/utf-2000/ShuoWen-SR477.el
@@ -145,26 +145,35 @@
     ))
 (define-char
   '((shuowen-radical	. 477)	; 黽
-    (=shuowen-jiguge	. 46915)	; &SW-JIGUGE-46915;
+    (=>shuowen-jiguge	. 46915)	; &A-SW-JIGUGE-46915;
+    (<-Small-Seal
+     ((=ucs		  . #x4D79)	; äµ¹
+      )
+     ((=ucs		  . #x9F05)	; 鼅
+      ))
     ))
 (define-char
   '((<-denotational
-     ((=shuowen-jiguge	  . 46915)	; &SW-JIGUGE-46915;
+     ((=>shuowen-jiguge	  . 46915)	; &A-SW-JIGUGE-46915;
       ))
     (shuowen-radical	. 477)	; 黽
     (===shuowen-jiguge5 . 46915)	; &SW-JIGUGE5-46915;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x4D79)	; äµ¹
+      )
+     ((=ucs		  . #x9F05)	; 鼅
       ))
     ))
 (define-char
   '((<-denotational
-     ((=shuowen-jiguge	  . 46915)	; &SW-JIGUGE-46915;
+     ((=>shuowen-jiguge	  . 46915)	; &A-SW-JIGUGE-46915;
       ))
     (shuowen-radical	. 477)	; 黽
     (===shuowen-jiguge4 . 45915)	; &SW-JIGUGE4-45915;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x4D79)	; äµ¹
+      )
+     ((=ucs		  . #x9F05)	; 鼅
       ))
     ))
 (define-char
@@ -172,6 +181,10 @@
     (=shuowen-jiguge	. 46916)	; &SW-JIGUGE-46916;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x27409)	; 𧐉
+      )
+     ((=ucs		  . #x27332)	; 𧌲
+      )
+     ((=ucs		  . #x8718)	; 蜘
       ))
     (<-formed@shuowen
      ((===shuowen-jiguge5 . 46915)	; &SW-JIGUGE5-46915;
@@ -179,6 +192,8 @@
      ((===shuowen-jiguge4 . 45915)	; &SW-JIGUGE4-45915;
       )
      ((=ucs		  . #x4D79)	; äµ¹
+      )
+     ((=ucs		  . #x9F05)	; 鼅
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 46916)	; &SW-JIGUGE5-46916;