From 6e4aced27224f8295e6d739e23217349bf2b1fba Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 22 Jun 2022 03:10:57 +0900
Subject: [PATCH] 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-09407): Add `<-Zhouwen@shuowen' for
 SW-JIGUGE-09406. (SW-JIGUGE4-09307): Ditto.

---
 lisp/utf-2000/ShuoWen-SR085.el |   18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/lisp/utf-2000/ShuoWen-SR085.el b/lisp/utf-2000/ShuoWen-SR085.el
index 783ac91..85e2a7c 100644
--- a/lisp/utf-2000/ShuoWen-SR085.el
+++ b/lisp/utf-2000/ShuoWen-SR085.el
@@ -37,8 +37,8 @@
     ))
 (define-char
   '((shuowen-radical	. 85)	; 臣
-    (=shuowen-jiguge	. 09407)	; &SW-JIGUGE-09407;
-    (<-Small-Seal@shuowen
+    (=>shuowen-jiguge	. 09407)	; &A-SW-JIGUGE-09407;
+    (<-Small-Seal
      ((=ucs		  . #x21489)	; 𡒉
       )
      ((=ucs		  . #x214A5)	; 𡒥
@@ -48,17 +48,22 @@
     ))
 (define-char
   '((<-denotational
-     ((=shuowen-jiguge	  . 09407)	; &SW-JIGUGE-09407;
+     ((=>shuowen-jiguge	  . 09407)	; &A-SW-JIGUGE-09407;
       ))
     (shuowen-radical	. 85)	; 臣
     (===shuowen-jiguge5 . 09407)	; &SW-JIGUGE5-09407;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x21489)	; 𡒉
       ))
+    (<-Zhouwen@shuowen
+     ((=shuowen-jiguge	  . 09406)	; &SW-JIGUGE-09406;
+      )
+     ((=ucs		  . #x81E7)	; 臧
+      ))
     ))
 (define-char
   '((<-denotational
-     ((=shuowen-jiguge	  . 09407)	; &SW-JIGUGE-09407;
+     ((=>shuowen-jiguge	  . 09407)	; &A-SW-JIGUGE-09407;
       ))
     (shuowen-radical	. 85)	; 臣
     (ideographic-structure
@@ -75,4 +80,9 @@
       )
      ((=ucs		  . #x22A11)	; 𢨑
       ))
+    (<-Zhouwen@shuowen
+     ((=shuowen-jiguge	  . 09406)	; &SW-JIGUGE-09406;
+      )
+     ((=ucs		  . #x81E7)	; 臧
+      ))
     ))
-- 
1.7.10.4