From: tomo <tomo>
Date: Fri, 25 Mar 2005 01:12:28 +0000 (+0000)
Subject: (ideographic-structure-member): Add simplified checking.
X-Git-Tag: chise-core-0_22~113
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9ba573cb254956dba87b43bf9a668641690ab4a0;p=chise%2Fids.git

(ideographic-structure-member): Add simplified checking.
---

diff --git a/ids-find.el b/ids-find.el
index edcac5e..b777081 100644
--- a/ids-find.el
+++ b/ids-find.el
@@ -1,6 +1,6 @@
 ;;; ids-find.el --- search utility based on Ideographic-structures
 
-;; Copyright (C) 2002,2003 MORIOKA Tomohiko
+;; Copyright (C) 2002,2003,2005 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: Kanji, Ideographs, search, IDS, CHISE, UCS, Unicode
@@ -60,7 +60,8 @@
 ;;;###autoload
 (defun ideographic-structure-member (component structure)
   "Return non-nil if COMPONENT is included in STRUCTURE."
-  (or (progn
+  (or (memq component structure)
+      (progn
 	(setq structure (cdr structure))
 	(ideographic-structure-member-compare-components
 	 component (car structure)))