ideo-dump.el

   1 (defvar char-dump-target-directory "/var/tmp")
   2
   3 (update-ideograph-radical-table)
   4
   5 (let ((i 1))
   6   (while (<= i 214)
   7     (write-ideograph-radical-char-data i char-dump-target-directory)
   8     (setq i (1+ i))))