Emacs For Windows 字体修改

Emacs For Windows 字体修改
[code]
(if (not (member '("-*-Bitstream Vera Sans Mono-normal-r-*-*-14-*-*-*-c-*-fontset-chinese"
. "fontset-chinese") fontset-alias-alist))
(progn
(create-fontset-from-fontset-spec
"-*-Bitstream Vera Sans Mono-normal-r-*-*-14-*-*-*-c-*-fontset-chinese,
chinese-gb2312:-*-微软雅黑-normal-r-*-*-14-*-*-*-c-*-gb2312*-*,
chinese-big5-1:-*-MingLiU-normal-r-*-*-14-*-*-*-c-*-big5*-*,
chinese-big5-2:-*-MingLiU-normal-r-*-*-14-*-*-*-c-*-big5*-*" t)
(setq default-frame-alist
(append
'((font . "fontset-chinese"))
default-frame-alist))
)
)
[/code]