From: tomo <tomo>
Date: Fri, 20 May 2005 18:05:35 +0000 (+0000)
Subject: (ids-dump-insert-daikanwa): Use `ids-dump-format-list' instead of
X-Git-Tag: chise-core-0_22~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7da402caa8e23136c47367608e16b9cb52c6c1e7;p=chise%2Fids.git

(ids-dump-insert-daikanwa): Use `ids-dump-format-list' instead of
`ids-format-list'.
(ids-dump-insert-daikanwa-hokan): Likewise.
---

diff --git a/ids-dump.el b/ids-dump.el
index 8833b87..32ec4fc 100644
--- a/ids-dump.el
+++ b/ids-dump.el
@@ -102,7 +102,7 @@
 	(insert
 	 (format "M-%05d \t%c\t%s\n"
 		 i (decode-builtin-char 'ideograph-daikanwa i)
-		 (or (ids-format-list
+		 (or (ids-dump-format-list
 		      (get-char-attribute chr 'ideographic-structure))
 		     ""))))
       (when (setq sal (assq i mdh-alist))
@@ -112,7 +112,7 @@
 	  (insert
 	   (format "M-%05d'\t%c\t%s\n"
 		   i chr
-		   (or (ids-format-list
+		   (or (ids-dump-format-list
 			(get-char-attribute chr 'ideographic-structure))
 		       ""))))
 	(when (setq chr (assq 2 sal))
@@ -120,7 +120,7 @@
 	  (insert
 	   (format "M-%05d\"\t%c\t%s\n"
 		   i chr
-		   (ids-format-list
+		   (ids-dump-format-list
 		    (get-char-attribute chr 'ideographic-structure)))))
 	)
       (setq i (1+ i)))))
@@ -141,7 +141,7 @@
        (format "MH-%04d \t%c\t%s\n"
 	       (car cell)
 	       chr
-	       (or (ids-format-list
+	       (or (ids-dump-format-list
 		    (get-char-attribute chr 'ideographic-structure))
 		   ""))))))