update.

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

diff --git a/ids-find.el b/ids-find.el
index 9ff51f4..eb404b3 100644 (file)
--- a/ids-find.el
+++ b/ids-find.el
@@ -74,8 +74,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 +87,7 @@
       (when (string-match "^->.*[@/]component\\(/[^*/]+\\)*$"
                          (symbol-name feature))
        (push feature dest)))
-    (cons '->formed
-         dest)))
+    dest))
 
 ;;;###autoload
 (defun char-component-variants (char)