(ids-read-buffer): Support `@apparent=' field.

[chise/ids.git] / ids-find.el

diff --git a/ids-find.el b/ids-find.el
index 9ff51f4..2d5a3a9 100644 (file)
--- a/ids-find.el
+++ b/ids-find.el
@@ -54,6 +54,11 @@
      (ids-index-store-structure c v)
      nil)
    'ideographic-structure)
+  (map-char-attribute
+   (lambda (c v)
+     (ids-index-store-structure c v)
+     nil)
+   'ideographic-structure@apparent)
   (save-char-attribute-table 'ideographic-products))
 
 
@@ -74,8 +79,12 @@
       (when (string-match "^<-.*[@/]component\\(/[^*/]+\\)*$"
                          (symbol-name feature))
        (push feature dest)))
-    (cons '<-mistakable
-         dest)))
+    (list* '<-mistakable '->mistakable
+          '<-formed '->formed
+          '<-same '->same
+          '<-original '->original
+          '<-ancient '->ancient
+          dest)))
 
 (defun to-component-features ()
   (let (dest)
@@ -83,8 +92,7 @@
       (when (string-match "^->.*[@/]component\\(/[^*/]+\\)*$"
                          (symbol-name feature))
        (push feature dest)))
-    (cons '->formed
-         dest)))
+    dest))
 
 ;;;###autoload
 (defun char-component-variants (char)