# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1083048222 0
# Node ID 6bce3db285b50139f9f0a0bb02f265d53de08483
# Parent  e7a5be902830a87601d8f42b6a3c909b53b251ee
(show-paren-highlight-openparen): New var.
(show-paren-function): Turn on openparen highlighting when
matching forward if show-paren-highlight-openparen is non-nil.

diff -r e7a5be902830 -r 6bce3db285b5 lisp/paren.el
--- a/lisp/paren.el	Tue Apr 27 06:42:48 2004 +0000
+++ b/lisp/paren.el	Tue Apr 27 06:43:42 2004 +0000
@@ -91,6 +91,9 @@
   :group 'faces
   :group 'paren-showing)
 
+(defvar show-paren-highlight-openparen t
+  "*Non-nil turns on openparen highlighting when matching forward.")
+
 (defvar show-paren-idle-timer nil)
 
 ;;;###autoload
@@ -195,7 +198,7 @@
 	  ;; If matching forward, and the openparen is unbalanced,
 	  ;; highlight the paren at point to indicate misbalance.
 	  ;; Otherwise, turn off any such highlighting.
-	  (if (and (= dir 1) (integerp pos))
+	  (if (and (not show-paren-highlight-openparen) (= dir 1) (integerp pos))
 	      (when (and show-paren-overlay-1
 			 (overlay-buffer show-paren-overlay-1))
 		(delete-overlay show-paren-overlay-1))