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