Преглед на файлове

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



Зареждане…
Отказ
Запис