From: tomo <tomo>
Date: Fri, 10 Dec 2004 08:39:37 +0000 (+0000)
Subject: (char-db-dump-additional-precomposed): New function.
X-Git-Tag: chise-base-0_23~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=78d11bee30fd4c641494ef8c67529cc6a5192c80;p=chise%2Ftomoyo-tools.git

(char-db-dump-additional-precomposed): New function.
(char-db-dump): Call `char-db-dump-additional-precomposed'.
---

diff --git a/char-db-dump.el b/char-db-dump.el
index f3aec36..b271cbf 100644
--- a/char-db-dump.el
+++ b/char-db-dump.el
@@ -153,13 +153,32 @@
       (write-region (point-min)(point-max)
 		    (expand-file-name "ruimoku6.el" directory)))))
 
+;;;###autoload
+(defun char-db-dump-additional-precomposed (directory)
+  (interactive "DDump additional-precomposed : ")
+  (let ((coding-system-for-write char-db-file-coding-system))
+    (with-temp-buffer
+      (insert (format ";; -*- coding: %s -*-\n"
+		      char-db-file-coding-system))
+      (map-char-attribute
+       (lambda (char value)
+	 (unless (char-ucs char)
+	   (unless (char-ucs char)
+	     (insert-char-data char)))
+	 nil)
+       '->decomposition)
+      (write-region (point-min)(point-max)
+		    (expand-file-name
+		     "additional-precomposed.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-ruimoku6 directory))
+  (char-db-dump-ruimoku6 directory)
+  (char-db-dump-additional-precomposed directory))
 
 
 ;;; @ End.