From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 1 Jun 2021 14:09:49 +0000 (+0900)
Subject: (SW-JIGUGE-36701): Add `ideographic-structure'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1df9f189177126a7742b0c856e440e7ef537a332;p=chise%2Fxemacs-chise.git

(SW-JIGUGE-36701): Add `ideographic-structure'.
(SW-JIGUGE-36702): Add `<-formed@shuowen' for SW-JIGUGE-36701.
(SW-JIGUGE-36703): Add `ideographic-structure'; add
`<-Zhouwen@shuowen' for SW-JIGUGE-36701.
(SW-JIGUGE-36917): Add `<-ancient@shuowen' for SW-JIGUGE-36916.
(SW-JIGUGE-36918): Ditto.
---

diff --git a/lisp/utf-2000/ShuoWen-SR408.el b/lisp/utf-2000/ShuoWen-SR408.el
index 42de1a7..5ff663b 100644
--- a/lisp/utf-2000/ShuoWen-SR408.el
+++ b/lisp/utf-2000/ShuoWen-SR408.el
@@ -2033,6 +2033,14 @@
     ))
 (define-char
   '((shuowen-radical	. 408)	; 心
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=shuowen-jiguge	  . 37915)	; &SW-JIGUGE-37915;
+      )
+     ((=shuowen-jiguge	  . 36106)	; &SW-JIGUGE-36106;
+      ))
     (=shuowen-jiguge	. 36701)	; &SW-JIGUGE-36701;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x6106)	; 愆
@@ -2049,6 +2057,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x3976)	; 㥶
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge	  . 36701)	; &SW-JIGUGE-36701;
+      )
+     ((=ucs		  . #x6106)	; 愆
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 36702)	; &SW-JIGUGE5-36702;
       )
@@ -2057,10 +2070,23 @@
     ))
 (define-char
   '((shuowen-radical	. 408)	; 心
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=shuowen-jiguge	  . 39409)	; &SW-JIGUGE-39409;
+      )
+     ((=shuowen-jiguge	  . 07005)	; &SW-JIGUGE-07005;
+      ))
     (=shuowen-jiguge	. 36703)	; &SW-JIGUGE-36703;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x8AD0)	; 諐
       ))
+    (<-Zhouwen@shuowen
+     ((=shuowen-jiguge	  . 36701)	; &SW-JIGUGE-36701;
+      )
+     ((=ucs		  . #x6106)	; 愆
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 36703)	; &SW-JIGUGE5-36703;
       )
@@ -3009,6 +3035,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x28D2E)	; 𨴮
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 36916)	; &SW-JIGUGE-36916;
+      )
+     ((=ucs		  . #x60A3)	; 患
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 36917)	; &SW-JIGUGE5-36917;
       )
@@ -3021,6 +3052,11 @@
     (<-Small-Seal@shuowen
      ((=ucs		  . #x22912)	; 𢤒
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 36916)	; &SW-JIGUGE-36916;
+      )
+     ((=ucs		  . #x60A3)	; 患
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 36918)	; &SW-JIGUGE5-36918;
       )