# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1020230528 0
# Node ID b9c9078b245d92c486209c6dfe9063674bb7b99d
# Parent  a25f9d4a291c480ed8449430ee0ab8fcf1889075
(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'.

diff -r a25f9d4a291c -r b9c9078b245d lisp/textmodes/tex-mode.el
--- a/lisp/textmodes/tex-mode.el	Wed May 01 05:21:26 2002 +0000
+++ b/lisp/textmodes/tex-mode.el	Wed May 01 05:22:08 2002 +0000
@@ -977,11 +977,12 @@
       (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 @@
 		       '(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)