From: tomo <tomo>
Date: Sat, 15 Dec 2001 17:57:53 +0000 (+0000)
Subject: (iddef-read-buffer): Don't add `ideographic-structure' for Daikanwa
X-Git-Tag: ids-0_0~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=db7a75bacb6dad18bbf468c5069c803bfccc0c87;p=chise%2Fids.git

(iddef-read-buffer): Don't add `ideographic-structure' for Daikanwa
character if the Daikanwa character has a different `ucs' code point.
---

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)