X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fread-maps.el;h=787bfde6ef5e47f12b15161f315a8b9f36e5bac1;hb=4b7bdc73cb23870ab5881a873ab3dc5d5d871c42;hp=1584747482ee4cd2283242f861025402db9e969b;hpb=83cd166da4eb482d926971ed5a0822907c040b37;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index 1584747..787bfde 100644
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -219,7 +219,8 @@ UCS-REGEXP is a regular expression to match against
 							     ==ucs@cns
 							     ==ucs@ks)))
 				   (char-feature drep-chr '=>ucs))
-			      ucs)))
+			      ucs))
+		     (not (eq (char-feature drep-chr '=>ucs*) ucs)))
 	    (if (or ucs-code (null drep-ucs-ccs))
 		(unless (eq (char-feature drep-chr '=>ucs) ucs)
 		  (put-char-attribute drep-chr '=>ucs ucs))