From 52ab062c9673805dd6f66f32a02cfa7544d7805e Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Wed, 1 May 2002 05:22:08 +0000 Subject: [PATCH] (tex-validate-buffer): Use `occur-revert-arguments' instead of setting `occur-nlines' and `occur-buffer'. Don't test for `input-pending-p' in loop. Set text property `occur-target' instead of `occur'. --- lisp/textmodes/tex-mode.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 81a36ac58d0..4d4a7d9302e 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -977,11 +977,12 @@ on the line for the invalidity you want to see." (save-excursion (set-buffer standard-output) (occur-mode) - (setq occur-buffer buffer) - (setq occur-nlines 0)) + ;; This won't actually work...Really, this whole thing should + ;; be rewritten instead of being a hack on top of occur. + (setq occur-revert-arguments (list nil 0 (list buffer)))) (save-excursion (goto-char (point-max)) - (while (and (not (input-pending-p)) (not (bobp))) + (while (and (not (bobp))) (let ((end (point)) prev-end) ;; Scan the previous paragraph for invalidities. @@ -1022,7 +1023,7 @@ on the line for the invalidity you want to see." '(mouse-face highlight help-echo "mouse-2: go to this invalidity")) (put-text-property text-beg (- text-end 1) - 'occur tem))))) + 'occur-target tem))))) (goto-char prev-end)))) (with-current-buffer standard-output (if (eq num-matches 0) -- 2.39.5