From b2677833115a0b505200d07771733363b5cb795a Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 18 Dec 2001 11:26:15 +0000 Subject: [PATCH] (iddef-read-buffer): Don't add `ideographic-structure' into a character specified in `->same-ideograph' or `->identical' if the character has `ucs'. --- iddef.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/iddef.el b/iddef.el index b49b19f..4219b4a 100644 --- a/iddef.el +++ b/iddef.el @@ -81,7 +81,8 @@ (find-char (plist-get ref :char))) (t (find-char ref)))) - (put-char-attribute ret 'ideographic-structure struct))) + (unless (get-char-attribute ret 'ucs) + (put-char-attribute ret 'ideographic-structure struct)))) ))))) ;;;###autoload -- 1.7.10.4