From 12370899bfbee628d6f2a2eaa50a58c055409ea5 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 18 Oct 2004 05:26:51 +0000 Subject: [PATCH] (dump-94x94-ccs-to-ucs-table): Use `char-feature' instead of `get-char-attribute'. --- dump-tables.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dump-tables.el b/dump-tables.el index 2cadfbc..07b9ec3 100644 --- a/dump-tables.el +++ b/dump-tables.el @@ -41,9 +41,9 @@ (while (< cell 127) (when (and (setq chr (make-char ccs row cell)) (setq ucs (or (encode-char chr 'ucs 'defined-only) - (get-char-attribute chr '=>ucs)))) + (char-feature chr '=>ucs)))) (setq ucs-l (or (encode-char chr ucs-ccs 'defined-only) - (get-char-attribute chr ucs-ccs-map))) + (char-feature chr ucs-ccs-map))) (insert (format ccs-format row cell)) (if (and ucs-l (/= ucs-l ucs)) (insert (format ucs-ccs-format ucs-l)) -- 1.7.10.4