From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 15 Dec 2022 07:55:36 +0000 (+0900)
Subject: (SW-JIGUGE-39908): Add `<-Small-Seal@shuowen' for U-000290EC and
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e5b0dbe4fbba18dd6b7a011528bd1ed577524cc2;p=chise%2Fxemacs-chise.git

(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
--- 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;
       )