From: tomo <tomo>
Date: Mon, 1 Dec 2003 11:03:14 +0000 (+0000)
Subject: (ideographic-structure-char=): Refer `<-ideographic-component-forms'.
X-Git-Tag: ids-0_0-1~51
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=882ea4b05da4944690c6f0c2c8ffdecd61516c32;p=chise%2Fids.git

(ideographic-structure-char=): Refer `<-ideographic-component-forms'.
---

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 <tomo@kanji.zinbun.kyoto-u.ac.jp>
-;; 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)