From cb426e88670dd386fbfbd9ff578127480c26d3a7 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sun, 23 Jul 2017 15:08:17 +0900 Subject: [PATCH] (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'. --- ids-find.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) 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)) -- 1.7.10.4