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

(SW-JIGUGE-01215): Add U+73CF as a corresponding modern character.
(SW-JIGUGE-01216): Add `<-formed@shuowen' for SW-JIGUGE-01215.

diff --git a/lisp/utf-2000/ShuoWen-SR007.el b/lisp/utf-2000/ShuoWen-SR007.el
index f524914..86e3454 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR007.el
+++ b/lisp/utf-2000/ShuoWen-SR007.el
@@ -1,8 +1,18 @@
 ;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((shuowen-radical   . 7)    ; 玨
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=shuowen-jiguge   . 00605)      ; &SW-JIGUGE-00605;
+      )
+     ((=shuowen-jiguge   . 00605)      ; &SW-JIGUGE-00605;
+      ))
     (=shuowen-jiguge   . 01215)        ; &SW-JIGUGE-01215;
     (<-Small-Seal@shuowen
+     ((=ucs              . #x73CF)     ; 珏
+      )
      ((=ucs              . #x73A8)     ; 玨
       ))
     (->subsumptive
@@ -13,10 +23,23 @@
     ))
 (define-char
   '((shuowen-radical   . 7)    ; 玨
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
+      (=ucs              . #x2FF9)     ; ⿹
+      )
+     ((=shuowen-jiguge   . 09412)      ; &SW-JIGUGE-09412;
+      )
+     ((=shuowen-jiguge   . 00605)      ; &SW-JIGUGE-00605;
+      ))
     (=shuowen-jiguge   . 01216)        ; &SW-JIGUGE-01216;
     (<-Small-Seal@shuowen
      ((=ucs              . #x7474)     ; 瑴
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge   . 01215)      ; &SW-JIGUGE-01215;
+      )
+     ((=ucs              . #x73CF)     ; 珏
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 01216)     ; &SW-JIGUGE5-01216;
       )
@@ -25,6 +48,14 @@
     ))
 (define-char
   '((shuowen-radical   . 7)    ; 玨
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND")
+      (=ucs              . #x2FF4)     ; ⿴
+      )
+     ((=shuowen-jiguge   . 01215)      ; &SW-JIGUGE-01215;
+      )
+     ((=shuowen-jiguge   . 14010)      ; &SW-JIGUGE-14010;
+      ))
     (=shuowen-jiguge   . 01217)        ; &SW-JIGUGE-01217;
     (<-Small-Seal@shuowen
      ((=ucs              . #x73ED)     ; 班
@@ -37,6 +68,14 @@
     ))
 (define-char
   '((shuowen-radical   . 7)    ; 玨
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND")
+      (=ucs              . #x2FF4)     ; ⿴
+      )
+     ((=shuowen-jiguge   . 01215)      ; &SW-JIGUGE-01215;
+      )
+     ((=shuowen-jiguge   . 49806)      ; &SW-JIGUGE-49806;
+      ))
     (=shuowen-jiguge   . 01218)        ; &SW-JIGUGE-01218;
     (<-Small-Seal@shuowen
      ((=ucs              . #x28325)    ; 𨌥