[Emacs-diffs] Changes to emacs/lisp/textmodes/tex-mode.el

[Stefan Monnier]

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.151 
emacs/lisp/textmodes/tex-mode.el:1.152
*** emacs/lisp/textmodes/tex-mode.el:1.151      Wed Dec  1 04:08:15 2004
--- emacs/lisp/textmodes/tex-mode.el    Fri Dec  3 22:22:24 2004
***************
*** 1190,1203 ****
              (forward-sexp 1))
            ;; Now check that like matches like.
            (goto-char start)
!           (while (progn (skip-syntax-forward "^(")
!                         (not (eobp)))
!             (let ((match (matching-paren (following-char))))
!               (save-excursion
                  (forward-sexp 1)
!                 (or (= (preceding-char) match)
!                     (error "Mismatched parentheses"))))
!             (forward-char 1)))
        (error
         (skip-syntax-forward " .>")
         (setq failure-point (point)))))
--- 1190,1203 ----
              (forward-sexp 1))
            ;; Now check that like matches like.
            (goto-char start)
!           (while (re-search-forward "\\s(" nil t)
!             (save-excursion
!               (let ((pos (match-beginning 0)))
!                 (goto-char pos)
                  (forward-sexp 1)
!                 (or (eq (preceding-char) (cdr (syntax-after pos)))
!                     (eq (char-after pos) (cdr (syntax-after (1- (point)))))
!                     (error "Mismatched parentheses"))))))
        (error
         (skip-syntax-forward " .>")
         (setq failure-point (point)))))