+(defun insert-char-data-with-variant (char)
+ (insert-char-data char)
+ (let ((variants (char-variants char)))
+ (while variants
+ (insert-char-data (car variants))
+ (setq variants (cdr variants))
+ )))
+
+(defun insert-char-range-data (min max)
+ (let ((code min)
+ char
+ variants)
+ (while (<= code max)
+ (setq char (int-char code))
+ (insert-char-data-with-variant char)
+ (setq code (1+ code))
+ )))
+
+(defun write-char-range-data-to-file (min max file)
+ (with-temp-buffer
+ (insert-char-range-data min max)
+ (write-region (point-min)(point-max) file)))
+