(show-paren-command-hook): Set paren foreground to white.

diff --git a/lisp/paren.el b/lisp/paren.el
index 34768396a3de6d2896b16cf1b9f6b60f588f5136..74258124be8dcc41a64369cab974d7950f4f740e 100644 (file)
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -86,7 +86,9 @@
                               (progn
                                 (make-face 'paren-mismatch)
                                 (set-face-background 'paren-mismatch
-                                                     "purple")))
+                                                     "purple")
+                                (set-face-foreground 'paren-mismatch
+                                                     "white")))
                           (setq show-paren-mismatch-face 'paren-mismatch))
                      (if show-paren-mismatch-face
                          (setq face show-paren-mismatch-face)