Mercurial > emacs
changeset 55176:6bce3db285b5
(show-paren-highlight-openparen): New var.
(show-paren-function): Turn on openparen highlighting when
matching forward if show-paren-highlight-openparen is non-nil.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 27 Apr 2004 06:43:42 +0000 |
| parents | e7a5be902830 |
| children | 144273ac799a |
| files | lisp/paren.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))