From: tomo <tomo>
Date: Tue, 18 Dec 2001 11:26:15 +0000 (+0000)
Subject: (iddef-read-buffer): Don't add `ideographic-structure' into a
X-Git-Tag: ids-0_0~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3e3a2be05953e767a6db88d420ab87ac864da262;p=chise%2Fids.git

(iddef-read-buffer): Don't add `ideographic-structure' into a
character specified in `->same-ideograph' or `->identical' if the
character has `ucs'.
---

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