From cc6c9b33c204030ce76ca885c27d464466ac86cb Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 26 Jan 2015 15:25:04 -0500 Subject: [PATCH] Include line height in *fonts --- core/defuns-ui.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/core/defuns-ui.el b/core/defuns-ui.el index 8423d94a4..9e6246171 100644 --- a/core/defuns-ui.el +++ b/core/defuns-ui.el @@ -50,11 +50,13 @@ (let* ((font (nth my/cycle-font-i *fonts)) (font-name (nth 0 font)) (font-size (nth 1 font)) - (font-aa (nth 2 font))) + (font-aa (nth 2 font)) + (font-line (nth 3 font))) (unless (member font-name (font-family-list)) (error "Font %s isn't installed" font-name)) (let ((font-str (concat font-name "-" (number-to-string font-size)))) (add-to-list 'default-frame-alist `(font . ,font-str)) (add-to-list 'initial-frame-alist `(font . ,font-str))) (load-font font-name font-size) - (setq ns-antialias-text font-aa))) + (setq ns-antialias-text font-aa) + (setq-default line-spacing font-line)))