From cfae539e7ea9bf015d7e2c6a804579f7aaa656d1 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 6 Apr 2005 19:51:22 +0000 Subject: [PATCH] (ideographic-structure-find-char): New function [override the same function defined in ideograph-util.el]. --- ids.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/ids.el b/ids.el index 7ce7a81..8214e83 100644 --- a/ids.el +++ b/ids.el @@ -1,6 +1,6 @@ ;;; ids.el --- Parser and utility for Ideographic Description Sequence. -;; Copyright (C) 2001,2002,2003 MORIOKA Tomohiko +;; Copyright (C) 2001,2002,2003,2005 MORIOKA Tomohiko ;; Author: MORIOKA Tomohiko ;; Keywords: IDS, IDC, Ideographs, UCS, Unicode @@ -29,6 +29,14 @@ ;;; Code: +(require 'ideograph-util) + +(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)))) + (defun ids-parse-terminal (string) (if (>= (length string) 1) (let* ((chr (aref string 0)) -- 1.7.10.4