From: tomo <tomo>
Date: Wed, 13 Nov 2002 03:26:53 +0000 (+0000)
Subject: (ids-dump-insert-jis-x0208-1990): Don't insert `nil'.
X-Git-Tag: ids-0_0-1~188
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1768485be43e1db79d86cc32a05f909de26ad694;p=chise%2Fids.git

(ids-dump-insert-jis-x0208-1990): Don't insert `nil'.
---

diff --git a/ids-dump.el b/ids-dump.el
index 678d6aa..de48c6e 100644
--- a/ids-dump.el
+++ b/ids-dump.el
@@ -125,8 +125,9 @@
 		 h l
 		 (decode-builtin-char 'japanese-jisx0208-1990
 				      (logior (lsh h 8) l))
-		 (ids-format-list
-		  (get-char-attribute chr 'ideographic-structure))))
+		 (or (ids-format-list
+		      (get-char-attribute chr 'ideographic-structure))
+		     "")))
 	(setq cell (1+ cell)))
       (setq row (1+ row)))
     (setq h (+ row 32))
@@ -139,8 +140,9 @@
 	       h l
 	       (decode-builtin-char 'japanese-jisx0208-1990
 				    (logior (lsh h 8) l))
-	       (ids-format-list
-		(get-char-attribute chr 'ideographic-structure))))
+	       (or (ids-format-list
+		    (get-char-attribute chr 'ideographic-structure))
+		   "")))
       (setq cell (1+ cell)))))
 
 (defun ids-dump-range (file path func &rest args)