From 8d5d211f28d5c8f294bcb6037a00c09e37e3e17a Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 15 Jun 2010 03:00:50 +0000 Subject: [PATCH] (char-db-dump-oracle-bones): Dump abstract Oracle-Bones characters. --- char-db-dump.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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) -- 1.7.10.4