diff --git a/emacs/.emacs.d/emacs.org b/emacs/.emacs.d/emacs.org
index 415c1a3..d76b4ca 100644
--- a/emacs/.emacs.d/emacs.org
+++ b/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