(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 (file)
--- 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)