(ids-update-index): Treat unifiable abstract-components in `=>iwds-1';

don't treat unifiable abstract-components in `=>ucs@component'.

diff --git a/ids-find.el b/ids-find.el
index 9844375..b0afbdd 100644 (file)
--- a/ids-find.el
+++ b/ids-find.el
@@ -95,7 +95,7 @@
           (setq products (adjoin p_c products))))
        (put-char-attribute c 'ideographic-products products)
        nil)
-     '=>ucs@component)
+     '=>iwds-1)
     (map-char-attribute
      (lambda (c v)
        (setq products (get-char-attribute c 'ideographic-products))
@@ -117,7 +117,7 @@
          (union products
                 (get-char-attribute comp 'ideographic-products))))
        )
-     '=>ucs@component)
+     '=>iwds-1)
     (map-char-attribute
      (lambda (c v)
        (setq products (get-char-attribute c 'ideographic-products))