Emacs For Windows 字体修改

Emacs For Windows 字体修改

(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))
      )
  )