[Emacs-diffs] Changes to emacs/lisp/textmodes/tex-mode.el

[Colin Walters]

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.122 
emacs/lisp/textmodes/tex-mode.el:1.123
*** emacs/lisp/textmodes/tex-mode.el:1.122      Fri Apr 26 17:19:14 2002
--- emacs/lisp/textmodes/tex-mode.el    Wed May  1 01:22:08 2002
***************
*** 977,987 ****
        (save-excursion
        (set-buffer standard-output)
        (occur-mode)
!       (setq occur-buffer buffer)
!       (setq occur-nlines 0))
        (save-excursion
        (goto-char (point-max))
!       (while (and (not (input-pending-p)) (not (bobp)))
          (let ((end (point))
                prev-end)
            ;; Scan the previous paragraph for invalidities.
--- 977,988 ----
        (save-excursion
        (set-buffer standard-output)
        (occur-mode)
!       ;; 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 (bobp)))
          (let ((end (point))
                prev-end)
            ;; Scan the previous paragraph for invalidities.
***************
*** 1022,1028 ****
                       '(mouse-face highlight
                         help-echo "mouse-2: go to this invalidity"))
                      (put-text-property text-beg (- text-end 1)
!                                        'occur tem)))))
            (goto-char prev-end))))
        (with-current-buffer standard-output
        (if (eq num-matches 0)
--- 1023,1029 ----
                       '(mouse-face highlight
                         help-echo "mouse-2: go to this invalidity"))
                      (put-text-property text-beg (- text-end 1)
!                                        'occur-target tem)))))
            (goto-char prev-end))))
        (with-current-buffer standard-output
        (if (eq num-matches 0)