From f7abebb51ae1a8f4e828f1816bdf2d33a4853752 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 10 Nov 2005 16:31:01 +0000 Subject: [PATCH] (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. --- ids-find.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) 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) -- 1.7.10.4