From: Mark Wooding <mwooding@good.com>
Date: Fri, 26 Oct 2012 13:24:51 +0000 (+0100)
Subject: el/dot-emacs.el: Apply reStructuredText face settings after load.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/5a83259fd220d3966f25952b519e1167b15803f9?ds=inline

el/dot-emacs.el: Apply reStructuredText face settings after load.

Annoyingly, `rst.el' clobbers the face settings we've made.  So arrange
to set the faces after it's already done its thing.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 2902ac1..ed1103a 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -989,18 +989,20 @@ (mdw-define-face woman-bold
 (mdw-define-face woman-italic
   (t :slant italic))
 
-(mdw-define-face rst-level-1-face
-  (t :foreground "SkyBlue1" :weight bold))
-(mdw-define-face rst-level-2-face
-  (t :foreground "SeaGreen1" :weight bold))
-(mdw-define-face rst-level-3-face
-  (t :weight bold))
-(mdw-define-face rst-level-4-face
-  (t :slant italic))
-(mdw-define-face rst-level-5-face
-  (t :underline t))
-(mdw-define-face rst-level-6-face
-  ())
+(eval-after-load "rst"
+  '(progn
+     (mdw-define-face rst-level-1-face
+       (t :foreground "SkyBlue1" :weight bold))
+     (mdw-define-face rst-level-2-face
+       (t :foreground "SeaGreen1" :weight bold))
+     (mdw-define-face rst-level-3-face
+       (t :weight bold))
+     (mdw-define-face rst-level-4-face
+       (t :slant italic))
+     (mdw-define-face rst-level-5-face
+       (t :underline t))
+     (mdw-define-face rst-level-6-face
+       ())))
 
 (mdw-define-face p4-depot-added-face
   (t :foreground "green"))