From 364c7d71878d36516c3fb8bd3eafa7c55e8add46 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 15 Dec 2022 16:54:43 +0900
Subject: [PATCH] (SW-JIGUGE-37824): Add `<-Small-Seal@shuowen' for U-00023F4D
 and U-00023F84. (SW-JIGUGE5-37824): Omit
 `<-Small-Seal@shuowen'. (SW-JIGUGE4-37024): Omit
 `<-Small-Seal@shuowen'.

---
 lisp/utf-2000/ShuoWen-SR410.el |   39 +++++----------------------------------
 1 file changed, 5 insertions(+), 34 deletions(-)

diff --git a/lisp/utf-2000/ShuoWen-SR410.el b/lisp/utf-2000/ShuoWen-SR410.el
index db4daa2..bd05cbd 100644
--- a/lisp/utf-2000/ShuoWen-SR410.el
+++ b/lisp/utf-2000/ShuoWen-SR410.el
@@ -1936,46 +1936,17 @@
 (define-char
   '((shuowen-radical	. 410)	; æ°´
     (=shuowen-jiguge	. 37824)	; &SW-JIGUGE-37824;
+    (<-Small-Seal@shuowen
+     ((=ucs		  . #x23F4D)	; 𣽍
+      )
+     ((=ucs		  . #x23F84)	; 𣾄
+      ))
     (->subsumptive
      ((===shuowen-jiguge-A30 . 38724)	; &SW-JIGUGE30-38724;
       )
      ((===shuowen-jiguge5 . 37824)	; &SW-JIGUGE5-37824;
-      (<-Small-Seal@shuowen
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-	  (=ucs		      . #x2FF0)	; â¿°
-	  )
-	 ((=ucs		      . #x6C35)	; æ°µ
-	  )
-	 ((ideographic-structure
-	   ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	    (=ucs		. #x2FF1)	; ⿱
-	    )
-	   ((=ucs		. #x81EA)	; 自
-	    )
-	   ((=ucs		. #x4E51)	; 乑
-	    ))
-	  ))
-	))
       )
      ((===shuowen-jiguge4 . 37024)	; &SW-JIGUGE4-37024;
-      (<-Small-Seal@shuowen
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-	  (=ucs		      . #x2FF0)	; â¿°
-	  )
-	 ((=ucs		      . #x6C35)	; æ°µ
-	  )
-	 ((ideographic-structure
-	   ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	    (=ucs		. #x2FF1)	; ⿱
-	    )
-	   ((=ucs		. #x81EA)	; 自
-	    )
-	   ((=ucs		. #x4E51)	; 乑
-	    ))
-	  ))
-	))
       ))
     ))
 (define-char
-- 
1.7.10.4