(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 (file)
--- 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