From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 20 Jun 2022 11:05:27 +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=237e41e889b3c167bdddb5886bf98d70fa954450;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-JIGUGE-42226): Add U-00022C95 as a corresponding modern character.
---

diff --git a/lisp/utf-2000/ShuoWen-SR441.el b/lisp/utf-2000/ShuoWen-SR441.el
index ffd5be2..aaef45d 100644
--- a/lisp/utf-2000/ShuoWen-SR441.el
+++ b/lisp/utf-2000/ShuoWen-SR441.el
@@ -220,11 +220,14 @@
     ))
 (define-char
   '((shuowen-radical	. 441)	; 手
-    (=shuowen-jiguge	. 41813)	; &SW-JIGUGE-41813;
+    (=>shuowen-jiguge	. 41813)	; &A-SW-JIGUGE-41813;
+    (<-Small-Seal
+     ((=ucs		  . #x62DC)	; 拜
+      ))
     ))
 (define-char
   '((<-denotational
-     ((=shuowen-jiguge	  . 41813)	; &SW-JIGUGE-41813;
+     ((=>shuowen-jiguge	  . 41813)	; &A-SW-JIGUGE-41813;
       ))
     (shuowen-radical	. 441)	; 手
     (===shuowen-jiguge5 . 41813)	; &SW-JIGUGE5-41813;
@@ -243,7 +246,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=shuowen-jiguge	  . 41813)	; &SW-JIGUGE-41813;
+     ((=>shuowen-jiguge	  . 41813)	; &A-SW-JIGUGE-41813;
       ))
     (shuowen-radical	. 441)	; 手
     (===shuowen-jiguge4 . 40513)	; &SW-JIGUGE4-40513;
@@ -1971,6 +1974,8 @@
   '((shuowen-radical	. 441)	; 手
     (=shuowen-jiguge	. 42226)	; &SW-JIGUGE-42226;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x22C95)	; 𢲕
+      )
      ((=ucs		  . #x63C6)	; 揆
       ))
     (->subsumptive