X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=ids-find.el;h=eb404b356120a895f36e8ce2b53f9cdf86d1ddc4;hb=11acf0ec0fa27b886bc9139c8043b954198439ce;hp=9ff51f4dbb2f64548925a142461c271cf5d6a4cb;hpb=cb426e88670dd386fbfbd9ff578127480c26d3a7;p=chise%2Fids.git

diff --git a/ids-find.el b/ids-find.el
index 9ff51f4..eb404b3 100644
--- 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)