From ed2f1aaada8bbf0a3f52ba159187b943590b604d Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 3 Nov 2001 06:32:08 +0000 Subject: [PATCH] (ideographic-structure-find-char): New function. --- lisp/utf-2000/ideograph-util.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 5cd7fda..562485b 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -232,6 +232,21 @@ (write-region (point-min)(point-max) file) ))) +;;;###autoload +(defun ideographic-structure-find-char (structure) + (let (rest) + (map-char-attribute (lambda (char value) + (setq rest structure) + (catch 'tag + (while (and rest value) + (unless (char-ref= (car rest)(car value)) + (throw 'tag nil)) + (setq rest (cdr rest) + value (cdr value))) + (unless (or rest value) + char))) + 'ideographic-structure))) + (provide 'ideograph-util) ;;; ideograph-util.el ends here -- 1.7.10.4