char-db-file-coding-system))
(while (<= code 52101)
(when (setq chr (decode-char '=shuowen-jiguge code 'defined-only))
- (insert-char-data chr))
+ (insert-char-data-with-variant chr))
(setq code (1+ code)))
(write-region (point-min)(point-max)
(expand-file-name "ShuoWen.el" directory)))))