From: tomo <tomo>
Date: Thu, 3 Sep 2009 11:32:20 +0000 (+0000)
Subject: (ids-dump-insert-jis-x0208-1990): Use `ideographic-structure-to-ids'
X-Git-Tag: chise-base-0_25~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bd596cf46112efbf5038f9ad40c89cca05e4c0b5;p=chise%2Fids.git

(ids-dump-insert-jis-x0208-1990): Use `ideographic-structure-to-ids'
instead of `ids-dump-format-list'.
---

diff --git a/ids-dump.el b/ids-dump.el
index 32ec4fc..78d0ca7 100644
--- a/ids-dump.el
+++ b/ids-dump.el
@@ -1,6 +1,6 @@
 ;;; ids-dump.el --- Dump utility of IDS-* files
 
-;; Copyright (C) 2002,2003,2004,2005 MORIOKA Tomohiko
+;; Copyright (C) 2002,2003,2004,2005,2009 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: IDS, IDC, Ideographs, UCS, Unicode
@@ -159,7 +159,7 @@
 		 h l
 		 (decode-builtin-char 'japanese-jisx0208-1990
 				      (logior (lsh h 8) l))
-		 (or (ids-dump-format-list
+		 (or (ideographic-structure-to-ids
 		      (get-char-attribute chr 'ideographic-structure))
 		     "")))
 	(setq cell (1+ cell)))
@@ -174,7 +174,7 @@
 	       h l
 	       (decode-builtin-char 'japanese-jisx0208-1990
 				    (logior (lsh h 8) l))
-	       (or (ids-dump-format-list
+	       (or (ideographic-structure-to-ids
 		    (get-char-attribute chr 'ideographic-structure))
 		   "")))
       (setq cell (1+ cell)))))