(CU+623F): Apply new conventions for glyph granularity.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / read-maps.el

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