emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/moe-theme 601fd5839a 233/352: Fixing for latest ReStructTe


From: ELPA Syncer
Subject: [nongnu] elpa/moe-theme 601fd5839a 233/352: Fixing for latest ReStructText-mode.
Date: Fri, 7 Jan 2022 03:59:27 -0500 (EST)

branch: elpa/moe-theme
commit 601fd5839a298937a3535d67f62e481489e58e2d
Author: kuanyui <azazabc123@gmail.com>
Commit: kuanyui <azazabc123@gmail.com>

    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

[Prev in Thread] Current Thread [Next in Thread]