From 882ea4b05da4944690c6f0c2c8ffdecd61516c32 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 1 Dec 2003 11:03:14 +0000 Subject: [PATCH] (ideographic-structure-char=): Refer `<-ideographic-component-forms'. --- ids-find.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/ids-find.el b/ids-find.el index df5c0a7..edcac5e 100644 --- a/ids-find.el +++ b/ids-find.el @@ -1,9 +1,9 @@ ;;; ids-find.el --- search utility based on Ideographic-structures -;; Copyright (C) 2002 MORIOKA Tomohiko +;; Copyright (C) 2002,2003 MORIOKA Tomohiko ;; Author: MORIOKA Tomohiko -;; Keywords: Kanji, Ideographs, search, IDS +;; Keywords: Kanji, Ideographs, search, IDS, CHISE, UCS, Unicode ;; This file is a part of Tomoyo-Tools. @@ -31,11 +31,18 @@ (m2 (char-ucs c2))) (or (and m1 m2 (eq m1 m2)) + (some (lambda (b2) + (unless (characterp b2) + (setq b2 (find-char b2))) + (and b2 + (ideographic-structure-char= c1 b2))) + (get-char-attribute + c2 '<-ideographic-component-forms)) (progn (setq m1 (car (get-char-attribute c1 '<-radical)) m2 (car (get-char-attribute c2 '<-radical))) (unless (characterp m1) - (setq m1 (or (find-char m1)))) + (setq m1 (find-char m1))) (unless (characterp m2) (setq m2 (find-char m2))) (when (or m1 m2) -- 1.7.10.4