Commit 2827a3c1 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(compile-goto-error): Fix previous change in the case where subsequent

errors have not been parsed yet because they are in a different source file.
parent 6114f9e5
2001-11-10 Richard M. Stallman <rms@gnu.org>
* progmodes/compile.el (compile-goto-error): Fix previous change
in the case where subsequent errors have not been parsed yet
because they are in a different source file.
2001-11-10 Peter Kleiweg <kleiweg@let.rug.nl>
 
* progmodes/ps-mode.el (ps-mode-font-lock-keywords-1): Merge
......
......@@ -1425,12 +1425,15 @@ at the end of the line."
;; compilation-next-error-locus.
(or (null (marker-buffer (caar compilation-error-list)))
(and (> (point) (caar compilation-error-list))
(cdr compilation-error-list)
;; Don't skip too far: the text between two errors
;; belongs to the first. Especially since this
;; in-between text might be other errors on the same
;; line (see compilation-skip-to-next-location).
(>= (point) (caar (cdr compilation-error-list))))))
(>= (point)
;; Don't skip too far: the text between
;; two errors belongs to the first. This
;; in-between text might be other errors
;; on the same line (see
;; compilation-skip-to-next-location).
(if (null (cdr compilation-error-list))
compilation-parsing-end
(caar (cdr compilation-error-list)))))))
(setq compilation-error-list (cdr compilation-error-list)))
(or compilation-error-list
(error "No error to go to")))
......@@ -1462,8 +1465,15 @@ other kinds of prefix arguments are ignored."
;; compilation-next-error-locus.
(or (null (marker-buffer (caar compilation-error-list)))
(and (> (point) (caar compilation-error-list))
(cdr compilation-error-list)
(>= (point) (caar (cdr compilation-error-list))))))
(>= (point)
;; Don't skip too far: the text between
;; two errors belongs to the first. This
;; in-between text might be other errors
;; on the same line (see
;; compilation-skip-to-next-location).
(if (null (cdr compilation-error-list))
compilation-parsing-end
(caar (cdr compilation-error-list)))))))
(setq compilation-error-list (cdr compilation-error-list)))
(push-mark)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment