Modify, fix and add some lines.

[chise/ids.git] / ids-dump.el

diff --git a/ids-dump.el b/ids-dump.el
index 678d6aa..ceaa578 100644 (file)
--- a/ids-dump.el
+++ b/ids-dump.el
@@ -71,8 +71,9 @@
        (insert
         (format "M-%05d \t%c\t%s\n"
                 i (decode-builtin-char 'ideograph-daikanwa i)
-                (ids-format-list
-                 (get-char-attribute chr 'ideographic-structure)))))
+                (or (ids-format-list
+                     (get-char-attribute chr 'ideographic-structure))
+                    ""))))
       (when (setq sal (assq i mdh-alist))
        (setq sal (cdr sal))
        (when (setq chr (assq 1 sal))
@@ -80,8 +81,9 @@
          (insert
           (format "M-%05d'\t%c\t%s\n"
                   i chr
-                  (ids-format-list
-                   (get-char-attribute chr 'ideographic-structure)))))
+                  (or (ids-format-list
+                       (get-char-attribute chr 'ideographic-structure))
+                      ""))))
        (when (setq chr (assq 2 sal))
          (setq chr (cdr chr))
          (insert
@@ -125,8 +127,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 +142,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)