From f9475bf2c3c1f90651d3535f9dabbb349f49421c Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Tue, 23 Jun 2020 15:23:33 +0900 Subject: [PATCH] Require `ids-find'. (ideographic-structure-find-char): New implementation; use `ideographic-structure-find-chars'. --- ids.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) 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 ;; 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) -- 1.7.10.4