From 3b094b9f7bb6674236da17ab05c41bad42941526 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 5 Oct 2022 15:56:54 +0900
Subject: [PATCH] Add `===shuowen-jiguge-A30' characters. (A-SW-JIGUGE-01304):
 New abstract node. (SW-JIGUGE-01304): Add `<-denotational'
 for A-SW-JIGUGE-01304. (SW-JIGUGE4-01304): Use
 `<-denotational' for A-SW-JIGUGE-01304 instead of
 `<-subsumptive' for SW-JIGUGE-01304.

---
 lisp/utf-2000/ShuoWen-SR009.el |   42 ++++++++++++++++++++++++++++++++++------
 1 file changed, 36 insertions(+), 6 deletions(-)

diff --git a/lisp/utf-2000/ShuoWen-SR009.el b/lisp/utf-2000/ShuoWen-SR009.el
index 882bc53..826f61f 100644
--- a/lisp/utf-2000/ShuoWen-SR009.el
+++ b/lisp/utf-2000/ShuoWen-SR009.el
@@ -6,6 +6,8 @@
      ((=ucs		  . #x58EB)	; 士
       ))
     (->subsumptive
+     ((===shuowen-jiguge-A30 . 01302)	; &SW-JIGUGE30-01302;
+      )
      ((===shuowen-jiguge5 . 01302)	; &SW-JIGUGE5-01302;
       )
      ((===shuowen-jiguge4 . 01302)	; &SW-JIGUGE4-01302;
@@ -25,6 +27,8 @@
      ((=ucs		  . #x58FB)	; 壻
       ))
     (->subsumptive
+     ((===shuowen-jiguge-A30 . 01303)	; &SW-JIGUGE30-01303;
+      )
      ((===shuowen-jiguge5 . 01303)	; &SW-JIGUGE5-01303;
       )
      ((===shuowen-jiguge4 . 01303)	; &SW-JIGUGE4-01303;
@@ -32,6 +36,33 @@
     ))
 (define-char
   '((shuowen-radical	. 9)	; 士
+    (=>shuowen-jiguge	. 01304)	; &A-SW-JIGUGE-01304;
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge	  . 01304)	; &A-SW-JIGUGE-01304;
+      ))
+    (shuowen-radical	. 9)	; 士
+    (=shuowen-jiguge	. 01304)	; &SW-JIGUGE-01304;
+    (<-Small-Seal@shuowen
+     ((=ucs		  . #x5A7F)	; å©¿
+      ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge	  . 01303)	; &SW-JIGUGE-01303;
+      )
+     ((=ucs		  . #x58FB)	; 壻
+      ))
+    (->subsumptive
+     ((===shuowen-jiguge-A30 . 01304)	; &SW-JIGUGE30-01304;
+      )
+     ((===shuowen-jiguge5 . 01304)	; &SW-JIGUGE5-01304;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>shuowen-jiguge	  . 01304)	; &A-SW-JIGUGE-01304;
+      ))
+    (shuowen-radical	. 9)	; 士
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
@@ -40,7 +71,7 @@
       )
      ((=shuowen-jiguge	  . 13819)	; &SW-JIGUGE-13819;
       ))
-    (=shuowen-jiguge	. 01304)	; &SW-JIGUGE-01304;
+    (===shuowen-jiguge4 . 01304)	; &SW-JIGUGE4-01304;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x5A7F)	; å©¿
       ))
@@ -49,11 +80,6 @@
       )
      ((=ucs		  . #x58FB)	; 壻
       ))
-    (->subsumptive
-     ((===shuowen-jiguge5 . 01304)	; &SW-JIGUGE5-01304;
-      )
-     ((===shuowen-jiguge4 . 01304)	; &SW-JIGUGE4-01304;
-      ))
     ))
 (define-char
   '((shuowen-radical	. 9)	; 士
@@ -72,6 +98,8 @@
      ((=ucs		  . #x58EE)	; 壮
       ))
     (->subsumptive
+     ((===shuowen-jiguge-A30 . 01305)	; &SW-JIGUGE30-01305;
+      )
      ((===shuowen-jiguge5 . 01305)	; &SW-JIGUGE5-01305;
       )
      ((===shuowen-jiguge4 . 01305)	; &SW-JIGUGE4-01305;
@@ -95,6 +123,8 @@
      ((=ucs		  . #x58AB)	; 墫
       ))
     (->subsumptive
+     ((===shuowen-jiguge-A30 . 01306)	; &SW-JIGUGE30-01306;
+      )
      ((===shuowen-jiguge5 . 01306)	; &SW-JIGUGE5-01306;
       )
      ((===shuowen-jiguge4 . 01306)	; &SW-JIGUGE4-01306;
-- 
1.7.10.4