Add `ideographic-structure' for some ShuoWen's characters.

(SW-JIGUGE-01502): Add U-00021D1B and U-00021E46 as corresponding
modern characters.
(SW-JIGUGE-01503): Add U-00026E15 as a corresponding modern character;
add `<-ancient@shuowen' for SW-JIGUGE-01502.
(SW-JIGUGE-01507): Add U-00021D2A and U-000204B6 as corresponding
modern characters; add `<-Zhouwen@shuowen' for SW-JIGUGE-01506.

diff --git a/lisp/utf-2000/ShuoWen-SR011.el b/lisp/utf-2000/ShuoWen-SR011.el
index e10c3df..526e7cc 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR011.el
+++ b/lisp/utf-2000/ShuoWen-SR011.el
@@ -25,6 +25,14 @@
     ))
 (define-char
   '((shuowen-radical   . 11)   ; 屮
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=shuowen-jiguge   . 01400)      ; &SW-JIGUGE-01400;
+      )
+     ((=shuowen-jiguge   . 43002)      ; &SW-JIGUGE-43002;
+      ))
     (=shuowen-jiguge   . 01501)        ; &SW-JIGUGE-01501;
     (<-Small-Seal@shuowen
      ((=ucs              . #x6BCF)     ; 每
@@ -39,8 +47,20 @@
     ))
 (define-char
   '((shuowen-radical   . 11)   ; 屮
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=shuowen-jiguge   . 01400)      ; &SW-JIGUGE-01400;
+      )
+     ((=shuowen-jiguge   . 43723)      ; &SW-JIGUGE-43723;
+      ))
     (=shuowen-jiguge   . 01502)        ; &SW-JIGUGE-01502;
     (<-Small-Seal@shuowen
+     ((=ucs              . #x21D1B)    ; 𡴛
+      )
+     ((=ucs              . #x21E46)    ; 𡹆
+      )
      ((=ucs              . #x6BD2)     ; 毒
       ))
     (->subsumptive
@@ -51,10 +71,25 @@
     ))
 (define-char
   '((shuowen-radical   . 11)   ; 屮
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs              . #x2FF8)     ; ⿸
+      )
+     ((=shuowen-jiguge   . 01928)      ; &SW-JIGUGE-01928;
+      )
+     ((=shuowen-jiguge   . 14010)      ; &SW-JIGUGE-14010;
+      ))
     (=shuowen-jiguge   . 01503)        ; &SW-JIGUGE-01503;
     (<-Small-Seal@shuowen
+     ((=ucs              . #x26E15)    ; 𦸕
+      )
      ((=ucs              . #x25CAE)    ; 𥲮
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge   . 01502)      ; &SW-JIGUGE-01502;
+      )
+     ((=ucs              . #x6BD2)     ; 毒
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 01503)     ; &SW-JIGUGE5-01503;
       )
@@ -63,6 +98,14 @@
     ))
 (define-char
   '((shuowen-radical   . 11)   ; 屮
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=shuowen-jiguge   . 01400)      ; &SW-JIGUGE-01400;
+      )
+     ((=shuowen-jiguge   . 03303)      ; &SW-JIGUGE-03303;
+      ))
     (=shuowen-jiguge   . 01504)        ; &SW-JIGUGE-01504;
     (<-Small-Seal@shuowen
      ((=ucs              . #x37A3)     ; 㞣
@@ -75,6 +118,14 @@
     ))
 (define-char
   '((shuowen-radical   . 11)   ; 屮
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=shuowen-jiguge   . 01509)      ; &SW-JIGUGE-01509;
+      )
+     ((=shuowen-jiguge   . 03303)      ; &SW-JIGUGE-03303;
+      ))
     (=shuowen-jiguge   . 01505)        ; &SW-JIGUGE-01505;
     (<-Small-Seal@shuowen
      ((=ucs              . #x82AC)     ; 芬
@@ -89,6 +140,14 @@
     ))
 (define-char
   '((shuowen-radical   . 11)   ; 屮
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=shuowen-jiguge   . 01400)      ; &SW-JIGUGE-01400;
+      )
+     ((=shuowen-jiguge   . 15300)      ; &SW-JIGUGE-15300;
+      ))
     (=shuowen-jiguge   . 01506)        ; &SW-JIGUGE-01506;
     (<-Small-Seal@shuowen
      ((=ucs              . #x21D06)    ; 𡴆
@@ -103,9 +162,35 @@
     ))
 (define-char
   '((shuowen-radical   . 11)   ; 屮
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=shuowen-jiguge   . 01506)      ; &SW-JIGUGE-01506;
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+       (=ucs               . #x2FF0)   ; ⿰
+       )
+       ((=shuowen-jiguge    . 01506)   ; &SW-JIGUGE-01506;
+       )
+       ((=shuowen-jiguge    . 01506)   ; &SW-JIGUGE-01506;
+       ))
+      ))
     (=shuowen-jiguge   . 01507)        ; &SW-JIGUGE-01507;
     (<-Small-Seal@shuowen
      ((=ucs              . #x21D2B)    ; 𡴫
+      )
+     ((=ucs              . #x21D2A)    ; 𡴪
+      )
+     ((=ucs              . #x204B6)    ; 𠒶
+      ))
+    (<-Zhouwen@shuowen
+     ((=shuowen-jiguge   . 01506)      ; &SW-JIGUGE-01506;
+      )
+     ((=ucs              . #x21D06)    ; 𡴆
+      )
+     ((=ucs              . #x5725)     ; 圥
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 01507)     ; &SW-JIGUGE5-01507;
@@ -115,6 +200,14 @@
     ))
 (define-char
   '((shuowen-radical   . 11)   ; 屮
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=shuowen-jiguge   . 01400)      ; &SW-JIGUGE-01400;
+      )
+     ((=shuowen-jiguge   . 35015)      ; &SW-JIGUGE-35015;
+      ))
     (=shuowen-jiguge   . 01508)        ; &SW-JIGUGE-01508;
     (<-Small-Seal@shuowen
      ((=ucs              . #x21D26)    ; 𡴦