From: tomo <tomo>
Date: Tue, 15 Jun 2010 03:00:50 +0000 (+0000)
Subject: (char-db-dump-oracle-bones): Dump abstract Oracle-Bones characters.
X-Git-Tag: chise-base-0_25~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8d5d211f28d5c8f294bcb6037a00c09e37e3e17a;p=chise%2Ftomoyo-tools.git

(char-db-dump-oracle-bones): Dump abstract Oracle-Bones characters.
---

diff --git a/char-db-dump.el b/char-db-dump.el
index d7bdd5f..b9d6646 100644
--- a/char-db-dump.el
+++ b/char-db-dump.el
@@ -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)