From 19573c0f2925166fcc42324ec872c1c46576a6b5 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sat, 14 Nov 2020 23:28:51 +0900 Subject: [PATCH] =?utf8?q?(ideographic-structure-compare-functional-and-appa?= =?utf8?q?rent):=20-=20In=20the=20implementation=20of=20rule-813=20(=E2=BF=BA?= =?utf8?q?=E2=BF=B1LBC=20->=20=E2=BF=B1=E2=BF=B0LCB=20if=20B=20is=20=20=20fl?= =?utf8?q?at-head),=20refer=20`ideographic-structure@apparent'=20as=20the=20?= =?utf8?q?same=20as=20=20=20`ideographic-structure';=20accept=20U+4E00=20as=20?= =?utf8?q?B.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- ids-find.el | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/ids-find.el b/ids-find.el index c410984..576718f 100644 --- a/ids-find.el +++ b/ids-find.el @@ -1526,11 +1526,19 @@ COMPONENT can be a character or char-spec." (setq enc (nth 1 structure)) (when (setq enc-str (cond ((characterp enc) - (get-char-attribute enc 'ideographic-structure) + (or (get-char-attribute enc 'ideographic-structure) + (get-char-attribute enc 'ideographic-structure@apparent)) ) ((consp enc) - (cdr (assq 'ideographic-structure enc)) + (or (cdr (assq 'ideographic-structure enc)) + (cdr (assq 'ideographic-structure@apparent enc))) ))) + (setq enc-str + (mapcar (lambda (cell) + (or (and (listp cell) + (find-char cell)) + cell)) + enc-str)) (cond ((eq (car enc-str) ?⿱) (cond @@ -1562,7 +1570,8 @@ COMPONENT can be a character or char-spec." ) ((and (characterp (nth 2 enc-str)) (memq (char-ucs (nth 2 enc-str)) - '(#x706C + '(#x4E00 + #x706C #x65E5 #x66F0 #x5FC3 #x2123C #x58EC #x738B #x7389))) (unless conversion-only -- 1.7.10.4