/[emacs]/emacs/lisp/textmodes/tex-mode.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/tex-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.123.2.6 by miles, Fri Mar 19 23:29:24 2004 UTC revision 1.123.2.7 by miles, Tue Jul 6 09:23:49 2004 UTC
# Line 1944  for the error messages." Line 1944  for the error messages."
1944                (or (null last-filename)                (or (null last-filename)
1945                    (not (string-equal last-filename filename))))                    (not (string-equal last-filename filename))))
1946               (error-location               (error-location
1947                (save-excursion                (with-current-buffer
1948                  (if (equal filename (concat tex-zap-file ".tex"))                    (if (equal filename (concat tex-zap-file ".tex"))
1949                      (set-buffer tex-last-buffer-texed)                        tex-last-buffer-texed
1950                    (set-buffer (find-file-noselect filename)))                      (find-file-noselect filename))
1951                  (if new-file                  (save-excursion
1952                      (progn (goto-line linenum) (setq last-position nil))                    (if new-file
1953                    (goto-char last-position)                        (progn (goto-line linenum) (setq last-position nil))
1954                    (forward-line (- linenum last-linenum)))                      (goto-char last-position)
1955                  ;; first try a forward search for the error text,                      (forward-line (- linenum last-linenum)))
1956                  ;; then a backward search limited by the last error.                    ;; first try a forward search for the error text,
1957                  (let ((starting-point (point)))                    ;; then a backward search limited by the last error.
1958                    (or (re-search-forward error-text nil t)                    (let ((starting-point (point)))
1959                        (re-search-backward error-text last-position t)                      (or (re-search-forward error-text nil t)
1960                        (goto-char starting-point)))                          (re-search-backward error-text last-position t)
1961                  (point-marker))))                          (goto-char starting-point)))
1962                      (point-marker)))))
1963          (goto-char this-error)          (goto-char this-error)
1964          (if (and compilation-error-list          (if (and compilation-error-list
1965                   (or (and find-at-least                   (or (and find-at-least

Legend:
Removed from v.1.123.2.6  
changed lines
  Added in v.1.123.2.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26