From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 1 Aug 2014 05:36:15 +0000 (+0900)
Subject: (mapping-table-read-file): If a glyph-image object has a feature
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=56a207b882965e8aeecb85a923139b71e9fe8838;p=chise%2Fxemacs-chise.git

(mapping-table-read-file): If a glyph-image object has a feature
`=>ucs*' and its value is equal to ucs, don't add `=>ucs' into the
glyph-image object even if its `ucs' value is not equal to ucs.
---

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