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

[Miles Bader]

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.123.2.6 
emacs/lisp/textmodes/tex-mode.el:1.123.2.7
*** emacs/lisp/textmodes/tex-mode.el:1.123.2.6  Fri Mar 19 23:29:24 2004
--- emacs/lisp/textmodes/tex-mode.el    Tue Jul  6 09:23:49 2004
***************
*** 1944,1964 ****
              (or (null last-filename)
                  (not (string-equal last-filename filename))))
             (error-location
!             (save-excursion
!               (if (equal filename (concat tex-zap-file ".tex"))
!                   (set-buffer tex-last-buffer-texed)
!                 (set-buffer (find-file-noselect filename)))
!               (if new-file
!                   (progn (goto-line linenum) (setq last-position nil))
!                 (goto-char last-position)
!                 (forward-line (- linenum last-linenum)))
!               ;; first try a forward search for the error text,
!               ;; then a backward search limited by the last error.
!               (let ((starting-point (point)))
!                 (or (re-search-forward error-text nil t)
!                     (re-search-backward error-text last-position t)
!                     (goto-char starting-point)))
!               (point-marker))))
        (goto-char this-error)
        (if (and compilation-error-list
                 (or (and find-at-least
--- 1944,1965 ----
              (or (null last-filename)
                  (not (string-equal last-filename filename))))
             (error-location
!             (with-current-buffer
!                 (if (equal filename (concat tex-zap-file ".tex"))
!                     tex-last-buffer-texed
!                   (find-file-noselect filename))
!               (save-excursion
!                 (if new-file
!                     (progn (goto-line linenum) (setq last-position nil))
!                   (goto-char last-position)
!                   (forward-line (- linenum last-linenum)))
!                 ;; first try a forward search for the error text,
!                 ;; then a backward search limited by the last error.
!                 (let ((starting-point (point)))
!                   (or (re-search-forward error-text nil t)
!                       (re-search-backward error-text last-position t)
!                       (goto-char starting-point)))
!                 (point-marker)))))
        (goto-char this-error)
        (if (and compilation-error-list
                 (or (and find-at-least