(SW-JIGUGE-39908): Add `<-Small-Seal@shuowen' for U-000290EC and

U+9712.
(SW-JIGUGE5-39908): Omit `<-Small-Seal@shuowen'.
(SW-JIGUGE4-39108): Likewise.
(SW-JIGUGE-39909): Add `<-ancient@shuowen' for SW-JIGUGE-39908.
(SW-JIGUGE-39910): Ditto.

diff --git a/lisp/utf-2000/ShuoWen-SR423.el b/lisp/utf-2000/ShuoWen-SR423.el
index 05557cf..1e7dff7 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR423.el
+++ b/lisp/utf-2000/ShuoWen-SR423.el
@@ -44,46 +44,17 @@
 (define-char
   '((shuowen-radical   . 423)  ; 雲
     (=shuowen-jiguge   . 39908)        ; &SW-JIGUGE-39908;
+    (<-Small-Seal@shuowen
+     ((=ucs              . #x290EC)    ; 𩃬
+      )
+     ((=ucs              . #x9712)     ; 霒
+      ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 40808)  ; &SW-JIGUGE30-40808;
       )
      ((===shuowen-jiguge5 . 39908)     ; &SW-JIGUGE5-39908;
-      (<-Small-Seal@shuowen
-       ((ideographic-structure
-        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-         (=ucs               . #x2FF1) ; ⿱
-         )
-        ((=ucs               . #x96E8) ; 雨
-         )
-        ((ideographic-structure
-          ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-           (=ucs               . #x2FF0)       ; ⿰
-           )
-          ((=ucs               . #x4E91)       ; 云
-           )
-          ((=ucs               . #x4ECA)       ; 今
-           ))
-         ))
-       ))
       )
      ((===shuowen-jiguge4 . 39108)     ; &SW-JIGUGE4-39108;
-      (<-Small-Seal@shuowen
-       ((ideographic-structure
-        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-         (=ucs               . #x2FF1) ; ⿱
-         )
-        ((=ucs               . #x96E8) ; 雨
-         )
-        ((ideographic-structure
-          ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-           (=ucs               . #x2FF0)       ; ⿰
-           )
-          ((=ucs               . #x4E91)       ; 云
-           )
-          ((=ucs               . #x4ECA)       ; 今
-           ))
-         ))
-       ))
       ))
     ))
 (define-char
@@ -92,6 +63,13 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x4F8C)     ; 侌
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge   . 39908)      ; &SW-JIGUGE-39908;
+      )
+     ((=ucs              . #x290EC)    ; 𩃬
+      )
+     ((=ucs              . #x9712)     ; 霒
+      ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 40809)  ; &SW-JIGUGE30-40809;
       )
@@ -106,6 +84,13 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x201AD)    ; 𠆭
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge   . 39908)      ; &SW-JIGUGE-39908;
+      )
+     ((=ucs              . #x290EC)    ; 𩃬
+      )
+     ((=ucs              . #x9712)     ; 霒
+      ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 40810)  ; &SW-JIGUGE30-40810;
       )