(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))
(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
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))
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)