(custom-button-face, custom-button-pressed-face):

Specify foreground color.

1 files changed, 8 insertions, 4 deletions

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 9005e0a3fec..8c2a801ba77 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1697,9 +1697,11 @@ and `face'."
 
 (defface custom-button-face
   '((((type x) (class color))           ; Like default modeline
-     (:box (:line-width 2 :style released-button) :background "lightgrey"))
+     (:box (:line-width 2 :style released-button)
+           :background "lightgrey" :foreground "black"))
     (((type w32) (class color))         ; Like default modeline
-     (:box (:line-width 2 :style released-button) :background "lightgrey"))
+     (:box (:line-width 2 :style released-button)
+           :background "lightgrey" :foreground "black"))
     (t
      nil))
   "Face used for buttons in customization buffers."
@@ -1708,9 +1710,11 @@ and `face'."
 
 (defface custom-button-pressed-face
   '((((type x) (class color))
-     (:box (:line-width 2 :style pressed-button) :background "lightgrey"))
+     (:box (:line-width 2 :style pressed-button)
+           :background "lightgrey" :foreground "black"))
     (((type w32) (class color))
-     (:box (:line-width 2 :style pressed-button) :background "lightgrey"))
+     (:box (:line-width 2 :style pressed-button)
+           :background "lightgrey" :foreground "black"))
     (t
      (:inverse-video t)))
   "Face used for buttons in customization buffers."