/[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.50 by miles, Wed Nov 7 05:13:09 2001 UTC revision 1.51 by rms, Mon Mar 11 09:14:28 2002 UTC
# Line 155  in `show-paren-style' after `show-paren- Line 155  in `show-paren-style' after `show-paren-
155                (condition-case ()                (condition-case ()
156                    (setq pos (scan-sexps (point) dir))                    (setq pos (scan-sexps (point) dir))
157                  (error (setq pos t mismatch t)))                  (error (setq pos t mismatch t)))
158                  ;; Move back the other way and verify we get back to the
159                  ;; starting point.  If not, these two parens don't really match.
160                  ;; Maybe the one at point is escaped and doesn't really count.
161                  (when (integerp pos)
162                    (unless (condition-case ()
163                                (eq (point) (scan-sexps pos (- dir)))
164                              (error nil))
165                      (setq pos nil)))
166                ;; If found a "matching" paren, see if it is the right                ;; If found a "matching" paren, see if it is the right
167                ;; kind of paren to match the one we started at.                ;; kind of paren to match the one we started at.
168                (when (integerp pos)                (when (integerp pos)

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

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