+(defvar char-dump-target-directory "/var/tmp")
+
+(update-ideograph-radical-table)
+
(let ((i 1))
(while (<= i 214)
- (write-ideograph-radical-char-data i "/var/tmp")
- (setq i (1+ i))))
\ No newline at end of file
+ (write-ideograph-radical-char-data i char-dump-target-directory)
+ (setq i (1+ i))))