emacs配置字体

Emacs 21.3.50.1, 不再需要bdf字体了, 下面的设置是针对 1024x768 的分辨率设置的, 如果是 800x600 将下面的 14 换成 12, 16换成14即可

(if (not (member '("-*-courier new-normal-r-*-*-16-*-*-*-c-*-fontset-chinese"
   . "fontset-chinese") fontset-alias-alist))
    (progn
      (create-fontset-from-fontset-spec
       "-*-courier new-normal-r-*-*-14-*-*-*-c-*-fontset-chinese,
      chinese-gb2312:-*-新宋体-normal-r-*-*-16-*-*-*-c-*-gb2312*-*,
      chinese-big5-1:-*-MingLiU-normal-r-*-*-16-*-*-*-c-*-big5*-*,
      chinese-big5-2:-*-MingLiU-normal-r-*-*-16-*-*-*-c-*-big5*-*" t)
      (setq default-frame-alist
            (append
             '((font . "fontset-chinese"))
             default-frame-alist))
      )
  )