From 56a207b882965e8aeecb85a923139b71e9fe8838 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 1 Aug 2014 14:36:15 +0900 Subject: [PATCH] (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. --- lisp/utf-2000/read-maps.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4