(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)
(with-temp-buffer
- (let* ((coding-system-for-write 'utf-8))
+ (let* ((coding-system-for-write 'utf-8-mcs-er))
(if (file-directory-p path)
(setq path (expand-file-name file path)))
- (insert ";; -*- coding: utf-8 -*-\n")
+ (insert ";; -*- coding: utf-8-mcs-er -*-\n")
(apply func args)
(write-region (point-min)(point-max) path))))