From ad3da472b2bec9cd1796e86b9f09a18e270d4ce2 Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 9 Mar 2003 16:55:09 +0000 Subject: [PATCH] (mapping-table-read-file): Use `=ucs' instead of `ucs'; use `encode-char' instead of `get-char-attribute' for it. --- lisp/utf-2000/read-maps.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el index 46f9d8c..99751af 100644 --- a/lisp/utf-2000/read-maps.el +++ b/lisp/utf-2000/read-maps.el @@ -116,7 +116,7 @@ ucs-code))) (put-char-attribute chr ucs-ccs ucs-code)) (when (and ucs - (not (eq (or (get-char-attribute chr 'ucs) + (not (eq (or (encode-char chr '=ucs 'defined-only) (and (not (eq ucs-ccs 'ucs-jis)) (get-char-attribute chr '=>ucs))) ucs))) -- 1.7.10.4