From 0691efe1c02f7036fe4cd6a73236bb068af4ca4b Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 5 Feb 2004 17:13:28 +0000
Subject: [PATCH] (char-db-dump-ruimoku6): New function. (char-db-dump): Call
 `char-db-dump-ruimoku6'.

---
 char-db-dump.el |   19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/char-db-dump.el b/char-db-dump.el
index 8db86dd..e515a70 100644
--- a/char-db-dump.el
+++ b/char-db-dump.el
@@ -138,10 +138,27 @@
 
 
 ;;;###autoload
+(defun char-db-dump-ruimoku6 (directory)
+  (interactive "DDump ruimoku6 : ")
+  (let ((coding-system-for-write 'utf-8-mcs)
+	(code #xE000)
+	chr)
+    (with-temp-buffer
+      (insert ";; -*- coding: utf-8-mcs -*-\n")
+      (while (<= code #xE8FF)
+	(when (setq chr (decode-char '=ruimoku-v6 code 'defined-only))
+	  (insert-char-data chr))
+	(setq code (1+ code)))
+      (write-region (point-min)(point-max)
+		    (expand-file-name "ruimoku6.el" directory)))))
+
+
+;;;###autoload
 (defun char-db-dump (directory)
   (interactive "DDirectory to dump : ")
   (char-db-dump-ideographs directory)
-  (char-db-dump-non-ideographs directory))
+  (char-db-dump-non-ideographs directory)
+  (char-db-dump-ruimoku6 directory))
 
 
 ;;; @ End.
-- 
1.7.10.4