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.

diff --git a/lisp/utf-2000/ShuoWen-SR009.el b/lisp/utf-2000/ShuoWen-SR009.el
index 882bc53..826f61f 100644 (file)
--- 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;