X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=ids-find.el;h=8ac5f3d72b70aaa42e1b0952dca231ae9c86a72a;hb=a4534d0f7936b67cc5bdd4d253f8115ec4d08886;hp=a882af43b1b448b68e117e1f8e42313352a4bc52;hpb=07adba0569e125905aeb95eac0801ea3b928bfd8;p=chise%2Fids.git

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)