From: MORIOKA Tomohiko Date: Fri, 2 Sep 2022 07:49:26 +0000 (+0900) Subject: (ideographic-structure-find-chars): Add code to refer X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6564534f7429b878632b60040ceea58091c82069;p=chise%2Fids.git (ideographic-structure-find-chars): Add code to refer `ideographic-structure@apparent/rightmost'. (ideographic-structure-compare-functional-and-apparent): Likewise. --- diff --git a/ids-find.el b/ids-find.el index a882af4..8ac5f3d 100644 --- a/ids-find.el +++ b/ids-find.el @@ -598,6 +598,9 @@ (ideographic-structure-equal str structure)) (and (setq str (get-char-attribute pc 'ideographic-structure@apparent/leftmost)) + (ideographic-structure-equal str structure)) + (and (setq str + (get-char-attribute pc 'ideographic-structure@apparent/rightmost)) (ideographic-structure-equal str structure))) (setq pl (cons pc pl)) )) @@ -1700,12 +1703,14 @@ COMPONENT can be a character or char-spec." (cond ((characterp enc) (or (get-char-attribute enc 'ideographic-structure) (get-char-attribute enc 'ideographic-structure@apparent) - (get-char-attribute enc 'ideographic-structure@apparent/leftmost)) + (get-char-attribute enc 'ideographic-structure@apparent/leftmost) + (get-char-attribute enc 'ideographic-structure@apparent/rightmost)) ) ((consp enc) (or (cdr (assq 'ideographic-structure enc)) (cdr (assq 'ideographic-structure@apparent enc)) - (cdr (assq 'ideographic-structure@apparent/leftmost enc))) + (cdr (assq 'ideographic-structure@apparent/leftmost enc)) + (cdr (assq 'ideographic-structure@apparent/rightmost enc))) ))) ;; (setq enc-str ;; (mapcar (lambda (cell)