浏览代码

Put with-no-warnings on here so gui stuff doesn't leak into commandline.

cray
Mitch Tishmack 11 年前
父节点
当前提交
98514065b3
共有 1 个文件被更改,包括 7 次插入5 次删除
  1. +7
    -5
      emacs/.emacs.d/emacs.org

+ 7
- 5
emacs/.emacs.d/emacs.org 查看文件

@@ -433,11 +433,13 @@ List of fonts in order of preference.
Set preferred font list when we're in a gui emacs session.

#+BEGIN_SRC emacs-lisp
(when window-system
(if (find-font (font-spec :name (car my/gui-fonts)))
(progn (set-frame-font (car my/gui-fonts))
(set-face-attribute 'default nil :height 180))
(progn (set-gui-font (cdr my/gui-fonts))))
(with-no-warnings
(when window-system
(if (find-font (font-spec :name (car my/gui-fonts)))
(progn (set-frame-font (car my/gui-fonts))
(set-face-attribute 'default nil :height 180))
(progn (set-gui-font (cdr my/gui-fonts))))
)
)
#+END_SRC



正在加载...
取消
保存