- (insert
- (ids-find-format-line c v)
- ;; (format "%c\t%s\t%s\n"
- ;; c
- ;; (or
- ;; (when (setq ucs (char-ucs c))
- ;; (or
- ;; (when (setq jis
- ;; (encode-char
- ;; (decode-char
- ;; 'ucs-jis (char-ucs c))
- ;; 'japanese-jisx0208-1990))
- ;; (format "J0-%04X" jis))))
- ;; "")
- ;; (or (ideographic-structure-to-ids v)
- ;; v))
- )))