(SW-JIGUGE-46901): Add `<-Small-Seal@shuowen' for U-0002A6AA, U+4DB1,

U-00031347 and U-0002A6BD.
(SW-JIGUGE5-46901): Omit `<-Small-Seal@shuowen'.
(SW-JIGUGE4-45901): Omit `<-Small-Seal@shuowen'.

diff --git a/lisp/utf-2000/ShuoWen-SR476.el b/lisp/utf-2000/ShuoWen-SR476.el
index 96a2384..ce5558c 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR476.el
+++ b/lisp/utf-2000/ShuoWen-SR476.el
@@ -30,32 +30,21 @@
 (define-char
   '((shuowen-radical   . 476)  ; 龜
     (=shuowen-jiguge   . 46901)        ; &SW-JIGUGE-46901;
+    (<-Small-Seal@shuowen
+     ((=ucs              . #x2A6AA)    ; 𪚪
+      )
+     ((=ucs              . #x4DB1)     ; 䶱
+      )
+     ((=ucs              . #x31347)    ; 𱍇
+      )
+     ((=ucs              . #x2A6BD)    ; 𪚽
+      ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 47801)  ; &SW-JIGUGE30-47801;
       )
      ((===shuowen-jiguge5 . 46901)     ; &SW-JIGUGE5-46901;
-      (<-Small-Seal@shuowen
-       ((ideographic-structure
-        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-         (=ucs               . #x2FF0) ; ⿰
-         )
-        ((=ucs               . #x5915) ; 夕
-         )
-        ((=ucs               . #x9F9C) ; 龜
-         ))
-       ))
       )
      ((===shuowen-jiguge4 . 45901)     ; &SW-JIGUGE4-45901;
-      (<-Small-Seal@shuowen
-       ((ideographic-structure
-        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-         (=ucs               . #x2FF0) ; ⿰
-         )
-        ((=ucs               . #x5915) ; 夕
-         )
-        ((=ucs               . #x9F9C) ; 龜
-         ))
-       ))
       ))
     ))
 (define-char