From 0249edeb3b2ff29fa00be334ad4440f87a4fc9da Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 24 Apr 2004 19:59:21 +0000 Subject: [PATCH] (mapping-table-read-file): Don't add `=>ucs' if a character's ancestors have `=>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 43f27f8..d9974c3 100644 --- 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))))) -- 1.7.10.4