From: tomo <tomo>
Date: Thu, 10 Nov 2005 16:31:01 +0000 (+0000)
Subject: (ids-index-store-char): Don't use `char-feature' to refer COMPONENT's
X-Git-Tag: chise-base-0_23~67
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f7abebb51ae1a8f4e828f1816bdf2d33a4853752;p=chise%2Fids.git

(ids-index-store-char): Don't use `char-feature' to refer COMPONENT's
`ideographic-products' value to avoid infinite recursions; don't check
COMPONENT'S substructure if PRODUCT is found in `ideographic-products'
of COMPONENT.
---

diff --git a/ids-find.el b/ids-find.el
index 3c965cc..0e0e7be 100644
--- a/ids-find.el
+++ b/ids-find.el
@@ -25,14 +25,12 @@
 ;;; Code:
 
 (defun ids-index-store-char (product component)
-  (let ((ret (char-feature
-	      component 'ideographic-products)))
+  (let ((ret (get-char-attribute component 'ideographic-products)))
     (unless (memq product ret)
       (put-char-attribute component 'ideographic-products
-			  (cons product ret)))
-    (when ret (setq ret (char-feature
-			 component 'ideographic-structure))
-	  (ids-index-store-structure product ret))
+			  (cons product ret))
+      (when (setq ret (char-feature component 'ideographic-structure))
+	(ids-index-store-structure product ret)))
     ))
 
 (defun ids-index-store-structure (product structure)