From 32336566a62a184e2858cd89d70a87808604498a Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 4 Oct 2021 09:06:44 +0900 Subject: [PATCH] (SW-JIGUGE-42916): Add `<-Small-Seal@shuowen' for U-0002157D, U-0002453F, U-00021580 and U-0002157C; add `<-Zhouwen@shuowen' for SW-JIGUGE-42915; add `<-ancient' for SW-JIGUGE-22504. (SW-JIGUGE5-42916): Omit `<-Small-Seal@shuowen'. (SW-JIGUGE4-41616): Ditto. (SW-JIGUGE-43015): Add U+36EE as a corresponding modern character. --- lisp/utf-2000/ShuoWen-SR443.el | 105 +++++++++------------------------------- 1 file changed, 23 insertions(+), 82 deletions(-) diff --git a/lisp/utf-2000/ShuoWen-SR443.el b/lisp/utf-2000/ShuoWen-SR443.el index f508cbe..2161675 100644 --- a/lisp/utf-2000/ShuoWen-SR443.el +++ b/lisp/utf-2000/ShuoWen-SR443.el @@ -242,92 +242,31 @@ (define-char '((shuowen-radical . 443) ; 女 (=shuowen-jiguge . 42916) ; &SW-JIGUGE-42916; + (<-Small-Seal@shuowen + ((=ucs . #x2157D) ; 𡕽 + ) + ((=ucs . #x2453F) ; 𤔿 + ) + ((=ucs . #x21580) ; 𡖀 + ) + ((=ucs . #x2157C) ; 𡕼 + )) + (<-Zhouwen@shuowen + ((=shuowen-jiguge . 42915) ; &SW-JIGUGE-42915; + ) + ((=ucs . #x5A5A) ; 婚 + )) + (<-ancient + ((=shuowen-jiguge . 22504) ; &SW-JIGUGE-22504; + ) + ((=ucs . #x660F) ; 昏 + )) + (<-ancient*sources + shuowen-jiguge=49912) (->subsumptive ((===shuowen-jiguge5 . 42916) ; &SW-JIGUGE5-42916; - (<-Small-Seal@shuowen - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") - (=ucs . #x2FF1) ; ⿱ - ) - ((name . "CJK RADICAL PAW ONE") - (=ucs . #x2EA4) ; ⺤ - ) - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT") - (=ucs . #x2FF8) ; ⿸ - ) - ((=ucs . #x5C38) ; 尸 - ) - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") - (=ucs . #x2FF1) ; ⿱ - ) - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO MIDDLE AND RIGHT") - (=ucs . #x2FF2) ; ⿲ - ) - ((=ucs . #x6B62) ; 止 - ) - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT") - (=ucs . #x2FF0) ; ⿰ - ) - ((=ucs . #x4E28) ; 丨 - ) - ((=ucs . #x4E28) ; 丨 - )) - ) - ((=ucs . #x5DF3) ; 巳 - )) - ) - ((=ucs . #x5902) ; 夂 - )) - )) - )) - )) ) ((===shuowen-jiguge4 . 41616) ; &SW-JIGUGE4-41616; - (<-Small-Seal@shuowen - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") - (=ucs . #x2FF1) ; ⿱ - ) - ((name . "CJK RADICAL PAW ONE") - (=ucs . #x2EA4) ; ⺤ - ) - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT") - (=ucs . #x2FF8) ; ⿸ - ) - ((=ucs . #x5C38) ; 尸 - ) - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") - (=ucs . #x2FF1) ; ⿱ - ) - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO MIDDLE AND RIGHT") - (=ucs . #x2FF2) ; ⿲ - ) - ((=ucs . #x6B62) ; 止 - ) - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT") - (=ucs . #x2FF0) ; ⿰ - ) - ((=ucs . #x4E28) ; 丨 - ) - ((=ucs . #x4E28) ; 丨 - )) - ) - ((=ucs . #x5DF3) ; 巳 - )) - ) - ((=ucs . #x5902) ; 夂 - )) - )) - )) - )) )) )) (define-char @@ -646,6 +585,8 @@ '((shuowen-radical . 443) ; 女 (=shuowen-jiguge . 43015) ; &SW-JIGUGE-43015; (<-Small-Seal@shuowen + ((=ucs . #x36EE) ; 㛮 + ) ((=ucs . #x5AC2) ; 嫂 )) (->subsumptive -- 1.7.10.4