From 6afd5d68ae9dcea3ef6361174cb5af8b724441b0 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 27 Apr 2004 06:43:42 +0000 Subject: [PATCH] (show-paren-highlight-openparen): New var. (show-paren-function): Turn on openparen highlighting when matching forward if show-paren-highlight-openparen is non-nil. --- lisp/paren.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/paren.el b/lisp/paren.el index ab3efe10ba5..6c5f9dece99 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -91,6 +91,9 @@ otherwise)." :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 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." ;; 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)) -- 2.39.5