branch: elpa/moe-theme
commit 601fd5839a298937a3535d67f62e481489e58e2d
Author: kuanyui <[email protected]>
Commit: kuanyui <[email protected]>

    Fixing for latest ReStructText-mode.
---
 moe-theme.el | 25 ++++++++++++++++++-------
 1 file changed, 18 insertions(+), 7 deletions(-)

diff --git a/moe-theme.el b/moe-theme.el
index b07dc00b22..3c536c5f6d 100644
--- a/moe-theme.el
+++ b/moe-theme.el
@@ -250,13 +250,24 @@ Don't setq this manually.")
            (s4 (nth 3 moe-theme-resize-rst-title))
            (s5 (nth 4 moe-theme-resize-rst-title))
            (s6 (nth 5 moe-theme-resize-rst-title)))
-      (progn (require 'rst)
-             (set-face-attribute 'rst-level-1-face nil :height s1)
-             (set-face-attribute 'rst-level-2-face nil :height s2)
-             (set-face-attribute 'rst-level-3-face nil :height s3)
-             (set-face-attribute 'rst-level-4-face nil :height s4)
-             (set-face-attribute 'rst-level-5-face nil :height s5)
-             (set-face-attribute 'rst-level-6-face nil :height s6)))))
+      (require 'rst)
+      (if (facep 'rst-level-1-face)
+         (progn
+           (set-face-attribute 'rst-level-1-face nil :height s1)
+           (set-face-attribute 'rst-level-2-face nil :height s2)
+           (set-face-attribute 'rst-level-3-face nil :height s3)
+           (set-face-attribute 'rst-level-4-face nil :height s4)
+           (set-face-attribute 'rst-level-5-face nil :height s5)
+           (set-face-attribute 'rst-level-6-face nil :height s6))
+       (progn
+         (set-face-attribute 'rst-level-1 nil :height s1)
+         (set-face-attribute 'rst-level-2 nil :height s2)
+         (set-face-attribute 'rst-level-3 nil :height s3)
+         (set-face-attribute 'rst-level-4 nil :height s4)
+         (set-face-attribute 'rst-level-5 nil :height s5)
+         (set-face-attribute 'rst-level-6 nil :height s6))
+       )))
+  )
 
 (defun moe-light ()
   "Load moe-light-theme with your customizations."

Reply via email to