# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743147991 0
# Node ID a5f0a739d87dca8e72d8d02f6f5a45813d95449e
# Parent  b85c00ac4ae31472dee5136143f65ab42f62235e
(show-paren-face): New variable.
(show-paren-command-hook): Use it.
Call set-face-background properly.

diff -r b85c00ac4ae3 -r a5f0a739d87d lisp/paren.el
--- a/lisp/paren.el	Tue Jul 20 05:55:31 1993 +0000
+++ b/lisp/paren.el	Tue Jul 20 05:59:51 1993 +0000
@@ -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"))))