(prefer-coding-system 'utf-8)
;; set cjk font for fontset-default
(let ((fontname '("wenquanyi bitmap song" . nil)))
(dolist (elt `((chinese-gb2312 . ,fontname)
(chinese-big5-1 . ,fontname)
(chinese-big5-2 . ,fontname)
(chinese-sisheng . ,fontname)
(chinese-cns11643-1 . ,fontname)
(chinese-cns11643-2 . ,fontname)
(chinese-cns11643-3 . ,fontname)
(chinese-cns11643-4 . ,fontname)
(chinese-cns11643-5 . ,fontname)
(chinese-cns11643-6 . ,fontname)
(chinese-cns11643-7 . ,fontname)
(japanese-jisx0208-1978 . ,fontname)
(japanese-jisx0208 . ,fontname)
(japanese-jisx0212 . ,fontname)
(japanese-jisx0213-1 . ,fontname)
(japanese-jisx0213-2 . ,fontname)
(korean-ksc5601 . ,fontname)))
(set-fontset-font "fontset-default" (car elt) (cdr elt))))
;; set sample texts for "Display Faces"
(setq list-faces-sample-text
"ABCDEFTHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 11223344556677889900
ABCDEFTHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 壹贰叁肆伍陆柒捌玖零")