update.

[chise/tomoyo-tools.git] / char-db-dump.el

diff --git a/char-db-dump.el b/char-db-dump.el
index 28de4a5..0fdf4bb 100644 (file)
--- a/char-db-dump.el
+++ b/char-db-dump.el
@@ -1,6 +1,6 @@
 ;;; char-db-dump.el --- Dump utility of char-spec files
 
-;; Copyright (C) 2002,2003,2004 MORIOKA Tomohiko
+;; Copyright (C) 2002,2003,2004,2005,2010 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: Ideographs, Character Database, CHISE, UCS, Unicode
@@ -142,12 +142,15 @@
   (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)
@@ -182,7 +185,7 @@
           (unless (char-ucs char)
             (insert-char-data char)))
         nil)
-       '->decomposition)
+       '=decomposition)
       (write-region (point-min)(point-max)
                    (expand-file-name
                     "additional-precomposed.el" directory)))))