From 82c30bf4386e439e85b4c4d107a67bc0725fe665 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Tue, 6 Oct 2020 16:28:53 +0900 Subject: [PATCH] =?utf8?q?(ideographic-structure-compare-functional-and-appa?= =?utf8?q?rent):=20Implement=20rule-710:=20=E2=BF=B7=E2=BF=BANAC=20->=20=E2=BF?= =?utf8?q?=BAN=E2=BF=B1AC.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- ids-find.el | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) diff --git a/ids-find.el b/ids-find.el index 32bffc7..082299f 100644 --- a/ids-find.el +++ b/ids-find.el @@ -1766,6 +1766,37 @@ COMPONENT can be a character or char-spec." ) ))) ) + ((eq (car structure) ?⿷) + (setq enc (nth 1 structure)) + (when (setq enc-str + (cond ((characterp enc) + (get-char-attribute enc 'ideographic-structure) + ) + ((consp enc) + (cdr (assq 'ideographic-structure enc)) + ))) + (cond + ((eq (car enc-str) ?⿺) + (unless conversion-only + (setq f-res (ids-find-chars-including-ids enc-str))) + (setq new-str (list ?⿱ + (nth 2 enc-str) + (nth 2 structure))) + (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) + 710)) + ))) + ) ((eq (car structure) ?⿻) (setq enc (nth 1 structure)) (when (setq enc-str -- 1.7.10.4