Mercurial > emacs
changeset 45055:b9c9078b245d
(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'.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Wed, 01 May 2002 05:22:08 +0000 |
| parents | a25f9d4a291c |
| children | 274fda24b0b9 |
| files | lisp/textmodes/tex-mode.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)