From 8cf725b507a32a8d117e9bf105cc22127ce41b30 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 16 Dec 2002 16:23:02 +0000 Subject: [PATCH] (ideographic-structure-char=): Fix problem about characters which does not have mappings for UCS code points. --- ids-find.el | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/ids-find.el b/ids-find.el index 871a8ef..7683d8f 100644 --- a/ids-find.el +++ b/ids-find.el @@ -27,15 +27,19 @@ (defun ideographic-structure-char= (c1 c2) (or (eq c1 c2) (and c1 c2 - (or (eq (char-ucs c1)(char-ucs c2)) - (let ((m1 (car (get-char-attribute c1 '<-radical))) - (m2 (car (get-char-attribute c2 '<-radical)))) - (unless (characterp m1) - (setq m1 (or (find-char m1)))) - (unless (characterp m2) - (setq m2 (find-char m2))) - (when (or m1 m2) - (ideographic-structure-char= m1 m2))))))) + (let ((m1 (char-ucs c1)) + (m2 (char-ucs c2))) + (or (and m1 m2 + (eq m1 m2)) + (progn + (setq m1 (car (get-char-attribute c1 '<-radical)) + m2 (car (get-char-attribute c2 '<-radical))) + (unless (characterp m1) + (setq m1 (or (find-char m1)))) + (unless (characterp m2) + (setq m2 (find-char m2))) + (when (or m1 m2) + (ideographic-structure-char= m1 m2)))))))) (defun ideographic-structure-member-compare-parts (part s-part) (let (ret) -- 1.7.10.4