projects / chise / xemacs-chise.git.1 / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: c536ad9)
(mapping-table-read-file): Don't add `=>ucs' if a character's
authortomo <tomo>
Sat, 24 Apr 2004 19:59:21 +0000 (19:59 +0000)
committertomo <tomo>
Sat, 24 Apr 2004 19:59:21 +0000 (19:59 +0000)
ancestors have `=>ucs'.

lisp/utf-2000/read-maps.el patch | blob | history

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index 43f27f8..d9974c3 100644 (file)
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -139,7 +139,8 @@
                                       (char-feature chr '=>ucs)))
                              ucs)))
            (if (or ucs-code (null ucs-ccs))
-               (put-char-attribute chr '=>ucs ucs)
+               (unless (eq (char-feature chr '=>ucs) ucs)
+                 (put-char-attribute chr '=>ucs ucs))
              (unless (eq (encode-char chr ucs-ccs 'defined-only)
                          ucs)
                (put-char-attribute chr ucs-ccs ucs)))))