From 3f3b5f6787054858ecf5e231cd155028b4d1d60c Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Tue, 4 Jun 2019 15:23:00 +0200
Subject: Emacs: Fix startup errors

---
 emacs/.emacs.d/main.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'emacs')

diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index af6edb2..fa04be0 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -99,6 +99,7 @@
 ;; definition.
 
 (eval-and-compile
+  (require 'subr-x)
   (use-package hook-helpers))
 
 ;;;; Customize
@@ -147,13 +148,14 @@
 
 (global-hl-line-mode +1)
 
-(let ((line (face-attribute 'mode-line :underline)))
+(define-hook-helper first-frame ()
+  (let ((line (face-attribute 'mode-line :underline)))
     (set-face-attribute 'mode-line          nil :overline   line)
     (set-face-attribute 'mode-line-inactive nil :overline   line)
     (set-face-attribute 'mode-line-inactive nil :underline  line)
     (set-face-attribute 'mode-line          nil :box        nil)
     (set-face-attribute 'mode-line-inactive nil :box        nil)
-    (set-face-attribute 'mode-line-inactive nil :background (face-attribute 'hl-line :background)))
+    (set-face-attribute 'mode-line-inactive nil :background (face-attribute 'hl-line :background))))
 
 ;;;;; Fonts
 
-- 
cgit 1.4.1