From: tomo <tomo>
Date: Mon, 18 Oct 2004 05:26:51 +0000 (+0000)
Subject: (dump-94x94-ccs-to-ucs-table): Use `char-feature' instead of
X-Git-Tag: chise-base-0_23~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=12370899bfbee628d6f2a2eaa50a58c055409ea5;p=chise%2Ftomoyo-tools.git

(dump-94x94-ccs-to-ucs-table): Use `char-feature' instead of
`get-char-attribute'.
---

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))