Set font only if found

1 files changed, 6 insertions, 7 deletions

diff --git a/init.el b/init.el
index 7c3dd5c..e0ae0ed 100644
--- a/init.el
+++ b/init.el
@@ -15,9 +15,8 @@
 (defun font-candidate (&rest fonts)
   "Return existing font which first match."
   (find-if (lambda (f) (find-font (font-spec :name f))) fonts))
-(set-face-attribute 'default nil :font (font-candidate '"Inconsolata"
-						       "Source Code Pro"
-						       "Anonymous Pro"))
+(let ((fontval (font-candidate '"Inconsolata" "Source Code Pro" "Anonymous Pro")))
+  (when fontval (set-face-attribute 'default nil :font fontval)))
 (when window-system
   (tooltip-mode -1)
   (tool-bar-mode -1))
@@ -27,10 +26,10 @@
 ;; Initialize package handling: currently using only the official repository and MELPA
 (setq package-archives
       '(("gnu"         . "http://elpa.gnu.org/packages/")
-	;("original"    . "http://tromey.com/elpa/")
-	;("org"         . "http://orgmode.org/elpa/")
-	;("marmalade"   . "http://marmalade-repo.org/packages/")
-	("melpa"       . "http://melpa.milkbox.net/packages/")))
+        ;("original"    . "http://tromey.com/elpa/")
+        ;("org"         . "http://orgmode.org/elpa/")
+        ;("marmalade"   . "http://marmalade-repo.org/packages/")
+        ("melpa"       . "http://melpa.milkbox.net/packages/")))
 (add-to-list 'load-path ravi/init-dir)
 (add-to-list 'load-path (ravi/emacs-file "site-lisp/"))
 (setq autoload-file (concat ravi/init-dir "loaddefs.el"))