(show-paren-face): New variable.

(show-paren-command-hook): Use it.
Call set-face-background properly.

diff --git a/lisp/paren.el b/lisp/paren.el
index c96efcd1863a5a259c1fba49a0da4eb875672d88..cd1c88781803ea231f83f73108edb5877a6d8b63 100644 (file)
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -36,12 +36,15 @@
 
 (defvar show-paren-mismatch-face nil)
 
+(defvar show-paren-face 'region
+  "*Name of face to use for showing the matching paren.")
+
 ;; Find the place to show, if there is one,
 ;; and show it until input arrives.
 (defun show-paren-command-hook ()
   (if window-system
       (let (pos dir mismatch (oldpos (point))
-               (face 'region))
+               (face show-paren-face))
        (cond ((eq (char-syntax (following-char)) ?\()
               (setq dir 1))
              ((eq (char-syntax (preceding-char)) ?\))
@@ -81,7 +84,8 @@
                               (progn
                                 (setq show-paren-mismatch-face
                                       (make-face 'paren-mismatch))
-                                (set-face-background 'paren-mismatch 'purple))))
+                                (set-face-background 'paren-mismatch
+                                                     "purple"))))
                      (if show-paren-mismatch-face
                          (setq face show-paren-mismatch-face)
                        (message "Paren mismatch"))))