(with-temp-buffer
(insert (format ";; -*- coding: %s -*-\n"
char-db-file-coding-system))
(while (<= code 8192)
(when (setq chr (decode-char '=zinbun-oracle code 'defined-only))
(with-temp-buffer
(insert (format ";; -*- coding: %s -*-\n"
char-db-file-coding-system))
(while (<= code 8192)
(when (setq chr (decode-char '=zinbun-oracle code 'defined-only))