X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fread-maps.el;h=d9974c3b3cd37376af12401b7b52865e875abe9a;hb=5b66241347bc058669c76856770732ac0e29d279;hp=43f27f8001b7efb5bedce2257e15135e2f65c397;hpb=535bc17bc56f1c40eeeb6d8d7c282a7b31509d7b;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index 43f27f8..d9974c3 100644
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -139,7 +139,8 @@
 				       (char-feature chr '=>ucs)))
 			      ucs)))
 	    (if (or ucs-code (null ucs-ccs))
-		(put-char-attribute chr '=>ucs ucs)
+		(unless (eq (char-feature chr '=>ucs) ucs)
+		  (put-char-attribute chr '=>ucs ucs))
 	      (unless (eq (encode-char chr ucs-ccs 'defined-only)
 			  ucs)
 		(put-char-attribute chr ucs-ccs ucs)))))