diff options
| author | Juri Linkov <juri@jurta.org> | 2004-04-27 06:43:42 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2004-04-27 06:43:42 +0000 |
| commit | 6afd5d68ae9dcea3ef6361174cb5af8b724441b0 (patch) | |
| tree | aed20f5dec9248805038ed4fce6991e88505778e /lisp/paren.el | |
| parent | da4ae7d3d80a2b1b8bb0b8baf1ecb488f2ef52ca (diff) | |
| download | emacs-6afd5d68ae9dcea3ef6361174cb5af8b724441b0.tar.gz | |
(show-paren-highlight-openparen): New var.
(show-paren-function): Turn on openparen highlighting when
matching forward if show-paren-highlight-openparen is non-nil.
Diffstat (limited to 'lisp/paren.el')
| -rw-r--r-- | lisp/paren.el | 5 |
1 files changed, 4 insertions, 1 deletions
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)) |