From db7a75bacb6dad18bbf468c5069c803bfccc0c87 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 15 Dec 2001 17:57:53 +0000 Subject: [PATCH] (iddef-read-buffer): Don't add `ideographic-structure' for Daikanwa character if the Daikanwa character has a different `ucs' code point. --- iddef.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/iddef.el b/iddef.el index 5638209..b49b19f 100644 --- a/iddef.el +++ b/iddef.el @@ -66,10 +66,11 @@ (if (equal morohashi val) char)) 'morohashi-daikanwa))) - (put-char-attribute - m-chr - 'ideographic-structure - (ideographic-structure-convert-to-daikanwa struct)))) + (unless (get-char-attribute m-chr 'ucs) + (put-char-attribute + m-chr + 'ideographic-structure + (ideographic-structure-convert-to-daikanwa struct))))) (put-char-attribute char 'ideographic-structure struct) (dolist (ref (union (get-char-attribute char '->same-ideograph) -- 1.7.10.4