(of-component-features): Add `->mistakable', `<-formed' and

`->formed'.
(to-component-features): Don't add `->formed'.

diff --git a/ids-find.el b/ids-find.el
index 9ff51f4..4b3d7ec 100644 (file)
--- a/ids-find.el
+++ b/ids-find.el
@@ -74,8 +74,9 @@
       (when (string-match "^<-.*[@/]component\\(/[^*/]+\\)*$"
                          (symbol-name feature))
        (push feature dest)))
-    (cons '<-mistakable
-         dest)))
+    (list* '<-mistakable '->mistakable
+          '<-formed '->formed
+          dest)))
 
 (defun to-component-features ()
   (let (dest)
@@ -83,8 +84,7 @@
       (when (string-match "^->.*[@/]component\\(/[^*/]+\\)*$"
                          (symbol-name feature))
        (push feature dest)))
-    (cons '->formed
-         dest)))
+    dest))
 
 ;;;###autoload
 (defun char-component-variants (char)