Try to fix markdown-code-face on Windows

See GH-253
jrblevin · Oct 18, 2017 · bba47f2 · bba47f2
1 parent 0167557
commit bba47f2
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/markdown-mode.el b/markdown-mode.el
@@ -2535,13 +2535,12 @@ See `markdown-hide-markup' for additional details."
   :group 'markdown-faces)
 
 (defface markdown-code-face
-  (let* ((default-bg (or (face-background 'default) "unspecified-bg"))
-         (light-bg (if (equal default-bg "unspecified-bg")
-                       "unspecified-bg"
-                     (color-darken-name default-bg 3)))
-         (dark-bg (if (equal default-bg "unspecified-bg")
-                       "unspecified-bg"
-                     (color-lighten-name default-bg 3))))
+  (let ((default-bg (face-background 'default))
+        light-bg dark-bg)
+    (if (member default-bg '(nil unspecified "unspecified-bg" "SystemWindow"))
+        (setq light-bg "unspecified-bg" dark-bg "unspecified-bg")
+      (setq light-bg (color-darken-name default-bg 3)
+            dark-bg (color-lighten-name default-bg 3)))
     `((default :inherit fixed-pitch)
       (((type graphic) (class color) (background dark)) (:background ,dark-bg))
       (((type graphic) (class color) (background light)) (:background ,light-bg))))