From ddcfb1818b220367de3705176e66b6a501512dae Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 25 Jun 2014 09:31:31 +0100
Subject: Emacs: set default font in current and new frames

---
 tag-emacs/emacs.d/init.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index 1cd34d28..5c8fdcf4 100644
--- a/tag-emacs/emacs.d/init.el
+++ b/tag-emacs/emacs.d/init.el
@@ -100,7 +100,8 @@
     (when mono-face
       (let ((default-font (concat mono-face "-" (number-to-string font-size))))
         (add-to-list 'default-frame-alist `(font . ,default-font))
-        (set-face-font 'fixed-pitch default-font)))
+        (set-face-font 'fixed-pitch default-font)
+        (set-frame-font default-font t t)))
     (when variable-face
       (set-face-font 'variable-pitch (concat variable-face "-"
                                              (number-to-string (1+ font-size))))))
-- 
cgit 1.4.1