如何单独设置emacs英文字体?

在win10下,设置以下内容:

(set-face-attribute
  'default nil :font "微软雅黑 12")

如此设置默认为雅黑下emacs滚屏无任何卡顿, 但如下设置就会卡顿:

(set-face-attribute
  'default nil :font "Source Code Pro 12")
(dolist (charset '(kana han symbol cjk-misc bopomofo))
(set-fontset-font (frame-parameter nil 'font)
charset
(font-spec :family "微软雅黑" :size 14)))

所以想寻求一下有没单独设置英文字体的方案

(defun set-font (english chinese english-size chinese-size)
  (set-face-attribute 'default nil :font
                      (format   "%s:pixelsize=%d"  english english-size))
  (dolist (charset '(kana han symbol cjk-misc bopomofo))
    (set-fontset-font (frame-parameter nil 'font) charset
                      (font-spec :family chinese :size chinese-size))))

(set-font "Source Code Pro" "simsun" 12 14)

我也用的是Windows 10,我觉得宋体比较好看。这段也是网上找来的,好像比较常见。

2 个赞

感谢答复, 但是还是卡顿, 一直Ctrl+N滚屏时候会严重卡顿

用cnfonts package,多换几个字体看看……