From db7a75bacb6dad18bbf468c5069c803bfccc0c87 Mon Sep 17 00:00:00 2001
From: tomo <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