From 23db9cfb9450233e212a52c90f7afe55469e4d45 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sun, 1 Nov 2020 23:22:32 +0900 Subject: [PATCH] =?utf8?q?(ideographic-structure-compare-functional-and-appa?= =?utf8?q?rent):=20-=20Implement=20rule-421:=20=E2=BF=B4=E2=BF=B0AAC=20->=20?= =?utf8?q?=E2=BF=B2ACA.=20-=20Implement=20rule-422:=20=E2=BF=B4=E2=BF=B0LRC=20?= =?utf8?q?->=20=E2=BF=B0L=E2=BF=B0CR.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- ids-find.el | 45 ++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 44 insertions(+), 1 deletion(-) diff --git a/ids-find.el b/ids-find.el index c7276b7..c58d022 100644 --- a/ids-find.el +++ b/ids-find.el @@ -1194,7 +1194,50 @@ COMPONENT can be a character or char-spec." (list ?⿱ new-str-c (nth 3 enc-str)) 419)) )) - ))) + ) + ((eq (car enc-str) ?⿰) + (cond + ((equal (nth 1 enc-str)(nth 2 enc-str)) + (unless conversion-only + (setq f-res (ids-find-chars-including-ids enc-str))) + (setq new-str (list ?⿲ + (nth 1 enc-str) + (nth 2 structure) + (nth 2 enc-str))) + (setq new-str-c + (list (cons 'ideographic-structure new-str))) + (if conversion-only + new-str + (setq a-res (ids-find-chars-including-ids new-str)) + (list enc + f-res + new-str-c + a-res + new-str + 421)) + ) + (t + (unless conversion-only + (setq f-res (ids-find-chars-including-ids enc-str))) + (setq new-str (list ?⿰ + (nth 2 structure) + (nth 2 enc-str))) + (setq new-str-c + (if (setq ret (ideographic-structure-find-chars new-str)) + (car ret) + (list (cons 'ideographic-structure new-str)))) + (if conversion-only + (list ?⿰ (nth 1 enc-str) new-str-c) + (setq a-res (ids-find-chars-including-ids new-str)) + (list enc + f-res + new-str-c + a-res + (list ?⿰ (nth 1 enc-str) new-str-c) + 422)) + )) + )) + ) ) ((eq (car structure) ?⿶) (setq enc (nth 1 structure)) -- 1.7.10.4