/[emacs]/emacs/lisp/paren.el
ViewVC logotype

Diff of /emacs/lisp/paren.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.54.6.1 by handa, Fri Apr 16 12:50:08 2004 UTC revision 1.54.6.2 by miles, Mon Jun 28 07:28:43 2004 UTC
# Line 91  otherwise)." Line 91  otherwise)."
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
# Line 195  in `show-paren-style' after `show-paren- Line 198  in `show-paren-style' after `show-paren-
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))

Legend:
Removed from v.1.54.6.1  
changed lines
  Added in v.1.54.6.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26