X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=ids-find.el;h=eb404b356120a895f36e8ce2b53f9cdf86d1ddc4;hb=c24d57c0b7b70139f0a29312d628da611cd0da1f;hp=1789b0c51c176627b867c6a1a54700cdf4e05faa;hpb=d9e93624134fe9482df729913e4004c13c568bc9;p=chise%2Fids.git

diff --git a/ids-find.el b/ids-find.el
index 1789b0c..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 '<-ideographic-component-forms
-	  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 '->ideographic-component-forms
-	  dest)))
+    dest))
 
 ;;;###autoload
 (defun char-component-variants (char)
@@ -281,7 +284,7 @@
 	      v)))
 
 (defun ids-insert-chars-including-components* (components
-					      &optional level ignored-chars)
+					       &optional level ignored-chars)
   (unless level
     (setq level 0))
   (let (is i as bs)
@@ -395,12 +398,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))