japanese-jisx0208
japanese-jisx0208-1990
japanese-jisx0212
+ japanese-jisx0213-1
+ japanese-jisx0213-2
chinese-cns11643-1
chinese-cns11643-2
chinese-cns11643-3
(let ((name (get-char-attribute (int-char (+ #x2EFF radical)) 'name)))
(if (string-match "KANGXI RADICAL " name)
(setq name (capitalize (substring name (match-end 0)))))
+ (setq name (mapconcat (lambda (char)
+ (if (eq char ? )
+ "-"
+ (char-to-string char))) name ""))
(setq file
(expand-file-name
(format "Ideograph-R%03d-%s.el" radical name)
file))))
(with-temp-buffer
(insert-ideograph-radical-char-data radical)
- (write-region (point-min)(point-max) file)))
+ (char-db-update-comment)
+ (let ((coding-system-for-write 'utf-8))
+ (write-region (point-min)(point-max) file)
+ )))
(provide 'ideograph-util)