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

[chise/tomoyo-tools.git] / dump-tables.el

diff --git a/dump-tables.el b/dump-tables.el
index 2cadfbc..07b9ec3 100644 (file)
--- 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))