(U+8201): Apply new conventions for glyph granularity for components

[chise/xemacs-chise.git] / lisp / utf-2000 / ShuoWen-SR408.el

diff --git a/lisp/utf-2000/ShuoWen-SR408.el b/lisp/utf-2000/ShuoWen-SR408.el
index 42de1a7..eecd336 100644 (file)
--- a/lisp/utf-2000/ShuoWen-SR408.el
+++ b/lisp/utf-2000/ShuoWen-SR408.el
@@ -1038,6 +1038,8 @@
     (=shuowen-jiguge   . 36413)        ; &SW-JIGUGE-36413;
     (<-Small-Seal@shuowen
      ((=ucs              . #x25C85)    ; 𥲅
+      )
+     ((=ucs              . #x22970)    ; 𢥰
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 36413)     ; &SW-JIGUGE5-36413;
@@ -2033,6 +2035,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 +2059,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 +2072,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 +3037,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 +3054,11 @@
     (<-Small-Seal@shuowen
      ((=ucs              . #x22912)    ; 𢤒
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge   . 36916)      ; &SW-JIGUGE-36916;
+      )
+     ((=ucs              . #x60A3)     ; 患
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 36918)     ; &SW-JIGUGE5-36918;
       )