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 |