all repos — archive/dotfiles @ 3f3b5f6787054858ecf5e231cd155028b4d1d60c

Superseded by nixfiles

Emacs: Fix startup errors
Alan Pearce alan@alanpearce.eu
Tue, 04 Jun 2019 15:23:00 +0200
commit

3f3b5f6787054858ecf5e231cd155028b4d1d60c

parent

8ff4a39bf02764295f948754efbe25c4d5ac8b67

1 files changed, 4 insertions(+), 2 deletions(-)

jump to
M emacs/.emacs.d/main.elemacs/.emacs.d/main.el
@@ -99,6 +99,7 @@ ;; modification and removal, without the boilerplate of an extra function ;; definition.
 
 (eval-and-compile
+  (require 'subr-x)
   (use-package hook-helpers))
 
 ;;;; Customize
@@ -147,13 +148,14 @@ (use-package highlight-stages) 
 (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