(char-db-dump-oracle-bones): Dump abstract Oracle-Bones characters.
authortomo <tomo>
Tue, 15 Jun 2010 03:00:50 +0000 (03:00 +0000)
committertomo <tomo>
Tue, 15 Jun 2010 03:00:50 +0000 (03:00 +0000)
char-db-dump.el

index d7bdd5f..b9d6646 100644 (file)
   (interactive "DDump Oracle-Bones : ")
   (let ((coding-system-for-write char-db-file-coding-system)
        (code 1)
-       chr)
+       chr a-chr)
     (with-temp-buffer
       (insert (format ";; -*- coding: %s -*-\n"
                      char-db-file-coding-system))
       (while (<= code 8192)
        (when (setq chr (decode-char '=zinbun-oracle code 'defined-only))
+         (setq a-chr (decode-char '=>zinbun-oracle code 'defined-only))
+         (unless (eq a-chr chr)
+           (insert-char-data a-chr))
          (insert-char-data chr))
        (setq code (1+ code)))
       (write-region (point-min)(point-max)