/[emacs]/emacs/lisp/textmodes/tex-mode.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/tex-mode.el

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

revision 1.151 by rost, Wed Dec 1 04:08:15 2004 UTC revision 1.152 by monnier, Fri Dec 3 22:22:24 2004 UTC
# Line 1190  area if a mismatch is found." Line 1190  area if a mismatch is found."
1190                (forward-sexp 1))                (forward-sexp 1))
1191              ;; Now check that like matches like.              ;; Now check that like matches like.
1192              (goto-char start)              (goto-char start)
1193              (while (progn (skip-syntax-forward "^(")              (while (re-search-forward "\\s(" nil t)
1194                            (not (eobp)))                (save-excursion
1195                (let ((match (matching-paren (following-char))))                  (let ((pos (match-beginning 0)))
1196                  (save-excursion                    (goto-char pos)
1197                    (forward-sexp 1)                    (forward-sexp 1)
1198                    (or (= (preceding-char) match)                    (or (eq (preceding-char) (cdr (syntax-after pos)))
1199                        (error "Mismatched parentheses"))))                        (eq (char-after pos) (cdr (syntax-after (1- (point)))))
1200                (forward-char 1)))                        (error "Mismatched parentheses"))))))
1201          (error          (error
1202           (skip-syntax-forward " .>")           (skip-syntax-forward " .>")
1203           (setq failure-point (point)))))           (setq failure-point (point)))))

Legend:
Removed from v.1.151  
changed lines
  Added in v.1.152

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