Commit 710a0f53 authored by Karl Heuer's avatar Karl Heuer
Browse files

(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.
parent 78c33db1
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment