(tex-validate-region): Skip fwd over whitespace

and punctuation, to find point of mismatch.
(validate-tex-buffer): Don't include the blank lines
before a paragraph in the paragraph being checked.

1 files changed, 12 insertions, 4 deletions

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index d410035cf84..6990c80f2d6 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -652,11 +652,17 @@ for the invalidity you want to see."
       (save-excursion
         (goto-char (point-max))
         (while (and (not (input-pending-p)) (not (bobp)))
-          (let ((end (point)))
+          (let ((end (point))
+                prev-end)
             ;; Scan the previous paragraph for invalidities.
-            (search-backward "\n\n" nil 'move)
+            (if (search-backward "\n\n" nil t)
+                (progn
+                  (setq prev-end (point))
+                  (forward-char 2))
+              (goto-char (setq prev-end (point-min))))
             (or (tex-validate-region (point) end)
-                (let* ((end (save-excursion (forward-line 1) (point)))
+                (let* ((oend end)
+                       (end (save-excursion (forward-line 1) (point)))
                        start tem)
                   (beginning-of-line)
                   (setq start (point))
@@ -679,7 +685,8 @@ for the invalidity you want to see."
                     (setq occur-pos-list (cons tem occur-pos-list))
                     (insert-buffer-substring buffer start end)
                     (forward-char (- start end))
-                    (insert (format "%3d: " linenum))))))))
+                    (insert (format "%3d: " linenum)))))
+            (goto-char prev-end))))
       (save-excursion
         (set-buffer standard-output)
         (if (null occur-pos-list)
@@ -701,6 +708,7 @@ area if a mismatch is found."
             (while (< 0 (setq max-possible-sexps (1- max-possible-sexps)))
               (forward-sexp 1)))
         (error
+          (skip-syntax-forward " .>")
           (setq failure-point (point)))))
     (if failure-point
         (progn