From d0f58576663d1005503cb148fc63c3cdaf620501 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Tue, 8 Oct 2013 21:34:00 +0100
Subject: Emacs: set a variable pitch font under darwin

---
 emacs/init.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'emacs')

diff --git a/emacs/init.el b/emacs/init.el
index 6844502a..12a5f53d 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -147,7 +147,10 @@ Values: `desktop', `server', `laptop'")
            (variable-face "Helvetica Neue")
            (default-font (concat mono-face "-" (number-to-string font-size))))
         (when mono-face
-          (add-to-list 'default-frame-alist `(font . ,default-font)))))))
+          (add-to-list 'default-frame-alist `(font . ,default-font)))
+        (when variable-face
+          (set-face-font 'variable-pitch (concat variable-face "-"
+                                                 (number-to-string (1+ font-size)))))))))
 
 (with-elapsed-timer "Setting up font styles"
   (let* ((font-height (face-attribute 'default :height))
-- 
cgit 1.4.1