From c94d26c26a55ff83eb4ee7bcbccd933fdd0fbbf0 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 24 Jul 2017 16:53:56 +0900 Subject: [PATCH] (of-component-features): Add `->mistakable', `<-formed' and `->formed'. (to-component-features): Don't add `->formed'. --- ids-find.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 1.7.10.4