Mercurial > emacs
changeset 15644:3b4678aa4e9f
(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.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 11 Jul 1996 23:55:01 +0000 |
| parents | 3c6865102f3d |
| children | 7b2621dc4bea |
| files | lisp/textmodes/tex-mode.el |
| diffstat | 1 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/tex-mode.el Thu Jul 11 23:41:28 1996 +0000 +++ b/lisp/textmodes/tex-mode.el Thu Jul 11 23:55:01 1996 +0000 @@ -652,11 +652,17 @@ (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 @@ (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 @@ (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