From 710a0f533a256334ccc4a72146112bfa44101046 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 11 Jul 1996 23:55:01 +0000 Subject: [PATCH] (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. --- lisp/textmodes/tex-mode.el | 16 ++++++++++++---- 1 file 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 -- 2.39.2