From 11806d8e6bd431e51b7153a1de7e9ef5b90e1848 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 2 Feb 2004 17:46:44 +0000 Subject: [PATCH] (mapping-table-read-file): Use `char-feature' instead of `get-char-attribute'. --- lisp/utf-2000/read-maps.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el index a764315..a72c161 100644 --- a/lisp/utf-2000/read-maps.el +++ b/lisp/utf-2000/read-maps.el @@ -126,7 +126,7 @@ (put-char-attribute chr ccs code)) (when (and ucs-code (not (eq (or (encode-char chr ucs-ccs 'defined-only) - (get-char-attribute chr '=>ucs)) + (char-feature chr '=>ucs)) ucs-code))) (put-char-attribute chr ucs-ccs ucs-code)) (when (and ucs @@ -136,7 +136,7 @@ =ucs-jis-2000 ;; ucs-big5 ))) - (get-char-attribute chr '=>ucs))) + (char-feature chr '=>ucs))) ucs))) (if (or ucs-code (null ucs-ccs)) (put-char-attribute chr '=>ucs ucs) -- 1.7.10.4