91 |
:group 'faces |
:group 'faces |
92 |
:group 'paren-showing) |
:group 'paren-showing) |
93 |
|
|
94 |
|
(defvar show-paren-highlight-openparen t |
95 |
|
"*Non-nil turns on openparen highlighting when matching forward.") |
96 |
|
|
97 |
(defvar show-paren-idle-timer nil) |
(defvar show-paren-idle-timer nil) |
98 |
|
|
99 |
;;;###autoload |
;;;###autoload |
198 |
;; If matching forward, and the openparen is unbalanced, |
;; If matching forward, and the openparen is unbalanced, |
199 |
;; highlight the paren at point to indicate misbalance. |
;; highlight the paren at point to indicate misbalance. |
200 |
;; Otherwise, turn off any such highlighting. |
;; Otherwise, turn off any such highlighting. |
201 |
(if (and (= dir 1) (integerp pos)) |
(if (and (not show-paren-highlight-openparen) (= dir 1) (integerp pos)) |
202 |
(when (and show-paren-overlay-1 |
(when (and show-paren-overlay-1 |
203 |
(overlay-buffer show-paren-overlay-1)) |
(overlay-buffer show-paren-overlay-1)) |
204 |
(delete-overlay show-paren-overlay-1)) |
(delete-overlay show-paren-overlay-1)) |