From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 24 Jul 2017 07:53:56 +0000 (+0900)
Subject: (of-component-features): Add `->mistakable', `<-formed' and
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fids.git;a=commitdiff_plain;h=c94d26c26a55ff83eb4ee7bcbccd933fdd0fbbf0

(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
--- 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)