From: Colin Walters <walters@gnu.org>
Date: Wed, 1 May 2002 05:22:08 +0000 (+0000)
Subject: (tex-validate-buffer): Use `occur-revert-arguments' instead of setting
X-Git-Tag: ttn-vms-21-2-B4~15247
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52ab062c9673805dd6f66f32a02cfa7544d7805e;p=emacs.git

(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 --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)