From 78d11bee30fd4c641494ef8c67529cc6a5192c80 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 10 Dec 2004 08:39:37 +0000 Subject: [PATCH] (char-db-dump-additional-precomposed): New function. (char-db-dump): Call `char-db-dump-additional-precomposed'. --- char-db-dump.el | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) 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. -- 1.7.10.4