el/dot-emacs.el: Apply reStructuredText face settings after load.
authorMark Wooding <mwooding@good.com>
Fri, 26 Oct 2012 13:24:51 +0000 (14:24 +0100)
committerMark Wooding <mwooding@good.com>
Fri, 26 Oct 2012 13:26:06 +0000 (14:26 +0100)
Annoyingly, `rst.el' clobbers the face settings we've made.  So arrange
to set the faces after it's already done its thing.

el/dot-emacs.el

index 2902ac1..ed1103a 100644 (file)
@@ -989,18 +989,20 @@ doesn't match any of the regular expressions in
 (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"))