From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 23 Jul 2017 06:08:17 +0000 (+0900)
Subject: (of-component-features): Don't refer `<-ideographic-component-forms'
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cb426e88670dd386fbfbd9ff578127480c26d3a7;p=chise%2Fids.git

(of-component-features): Don't refer `<-ideographic-component-forms'
because it has been already abolished; refer `<-mistakable'.
(to-component-features): Don't refer `->ideographic-component-forms'
because it has been already abolished; refer `->formed'.
(ids-find-chars-covered-by-components): Delete unused local variables
`ucs' and `jis'.
---

diff --git a/ids-find.el b/ids-find.el
index 2c611ae..9ff51f4 100644
--- a/ids-find.el
+++ b/ids-find.el
@@ -74,7 +74,7 @@
       (when (string-match "^<-.*[@/]component\\(/[^*/]+\\)*$"
 			  (symbol-name feature))
 	(push feature dest)))
-    (cons '<-ideographic-component-forms
+    (cons '<-mistakable
 	  dest)))
 
 (defun to-component-features ()
@@ -83,7 +83,7 @@
       (when (string-match "^->.*[@/]component\\(/[^*/]+\\)*$"
 			  (symbol-name feature))
 	(push feature dest)))
-    (cons '->ideographic-component-forms
+    (cons '->formed
 	  dest)))
 
 ;;;###autoload
@@ -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))