From 2777c9d3c7e71ac7fe758768ca61d35f8677d716 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 5 Nov 2004 03:08:24 +0000 Subject: [PATCH] (mapping-table-read-file): Fixed. --- lisp/utf-2000/read-maps.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el index c43d38b..34c413f 100644 --- a/lisp/utf-2000/read-maps.el +++ b/lisp/utf-2000/read-maps.el @@ -128,9 +128,17 @@ code) (put-char-attribute chr ccs code)) (when (and ucs-code - (not (eq (or (encode-char chr ucs-ccs 'defined-only) - (char-feature chr '=>ucs)) - ucs-code))) + (not + (eq (or (encode-char chr ucs-ccs 'defined-only) + (if (memq ucs-ccs '(ucs-jis + =ucs-jis-1990 + =ucs-jis-2000 + ;; ucs-big5 + )) + (encode-char chr '=ucs@jis/fw + 'defined-only) + (char-feature chr '=>ucs))) + ucs-code))) (put-char-attribute chr ucs-ccs ucs-code)) (when (and ucs (not (eq (or (encode-char chr '=ucs 'defined-only) -- 1.7.10.4