diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 4efb842..9a0654a 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -201,7 +201,7 @@
 ;;
 (require 'cl)
 (defun font-existsp (font)
-  (if (null (x-list-fonts font))
+  (if (and (fboundp 'x-list-fonts) (null (x-list-fonts font)))
       nil t))
 
 (setq my-font-choice