From 41c12ad8763e633735e1b9b7e2d786ec20219341 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 19 Sep 2007 07:24:17 +0000 Subject: [PATCH] (tex-terminate-paragraph): Use backward-paragraph. --- lisp/ChangeLog | 2 +- lisp/textmodes/tex-mode.el | 7 ++++++- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5766439ebb9..71a81882461 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,7 @@ 2007-09-19 Glenn Morris * textmodes/tex-mode.el (tex-terminate-paragraph): Use - backward-paragraph. + backward-paragraph. Leave point at the site of any mismatch. 2007-09-19 Stefan Monnier diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index cfd5afebe4e..3a7a9880d38 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -1188,6 +1188,7 @@ on the line for the invalidity you want to see." (let ((end (point)) prev-end) ;; Scan the previous paragraph for invalidities. + ;; FIXME this should be using something like backward-paragraph. (if (search-backward "\n\n" nil t) (progn (setq prev-end (point)) @@ -1273,9 +1274,13 @@ A prefix arg inhibits the checking." (interactive "*P") (or inhibit-validation (save-excursion + ;; For the purposes of this, a "paragraph" is a block of text + ;; wherein all the brackets etc are expected to be balanced. It + ;; may start after a blank line (ie a "proper" paragraph), or + ;; a begin{} or end{} block, etc. (tex-validate-region (save-excursion - (search-backward "\n\n" nil 'move) + (backward-paragraph) (point)) (point))) (message "Paragraph being closed appears to contain a mismatch")) -- 2.39.2