(U-00029BBA): Fixed.

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

diff --git a/ids-find.el b/ids-find.el
index 2c611ae..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 '<-ideographic-component-forms
-         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 '->ideographic-component-forms
-         dest)))
+    dest))
 
 ;;;###autoload
 (defun char-component-variants (char)
@@ -395,12 +395,11 @@
   (with-current-buffer (get-buffer-create ids-find-result-buffer)
     (setq buffer-read-only nil)
     (erase-buffer)
-    (let (ucs jis)
-      (map-char-attribute
-       (lambda (c v)
-        (when (ideographic-structure-repertoire-p v components)
-          (insert (ids-find-format-line c v))))
-       'ideographic-structure))
+    (map-char-attribute
+     (lambda (c v)
+       (when (ideographic-structure-repertoire-p v components)
+        (insert (ids-find-format-line c v))))
+     'ideographic-structure)
     (goto-char (point-min)))
   (view-buffer ids-find-result-buffer))