X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=ids.el;fp=ids.el;h=3cc1e8eba8e6c124ed43e09927b59e640a47f3b3;hb=f9475bf2c3c1f90651d3535f9dabbb349f49421c;hp=8214e834e8ab8e9ccc434e6daec2b1d7c76ded08;hpb=3d11f3b32760d7d2affaf1407eee99d1219afa91;p=chise%2Fids.git

diff --git a/ids.el b/ids.el
index 8214e83..3cc1e8e 100644
--- a/ids.el
+++ b/ids.el
@@ -1,11 +1,11 @@
 ;;; ids.el --- Parser and utility for Ideographic Description Sequence.
 
-;; Copyright (C) 2001,2002,2003,2005 MORIOKA Tomohiko
+;; Copyright (C) 2001, 2002, 2003, 2005, 2020 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: IDS, IDC, Ideographs, UCS, Unicode
 
-;; This file is a part of Tomoyo-Tools.
+;; This file is a part of CHISE-IDS.
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -30,12 +30,15 @@
 ;;; Code:
 
 (require 'ideograph-util)
+(require 'ids-find)
 
 (defun ideographic-structure-find-char (structure)
-  (dolist (product (char-feature (nth 1 structure) 'ideographic-products))
-    (if (equal structure
-	       (char-feature product 'ideographic-structure))
-	(return product))))
+  (car (ideographic-structure-find-chars structure))
+  ;; (dolist (product (char-feature (nth 1 structure) 'ideographic-products))
+  ;;   (if (equal structure
+  ;;              (char-feature product 'ideographic-structure))
+  ;;       (return product)))
+  )
 
 (defun ids-parse-terminal (string)
   (if (>= (length string) 1)