1425 |
;; compilation-next-error-locus. |
;; compilation-next-error-locus. |
1426 |
(or (null (marker-buffer (caar compilation-error-list))) |
(or (null (marker-buffer (caar compilation-error-list))) |
1427 |
(and (> (point) (caar compilation-error-list)) |
(and (> (point) (caar compilation-error-list)) |
1428 |
(cdr compilation-error-list) |
(>= (point) |
1429 |
;; Don't skip too far: the text between two errors |
;; Don't skip too far: the text between |
1430 |
;; belongs to the first. Especially since this |
;; two errors belongs to the first. This |
1431 |
;; in-between text might be other errors on the same |
;; in-between text might be other errors |
1432 |
;; line (see compilation-skip-to-next-location). |
;; on the same line (see |
1433 |
(>= (point) (caar (cdr compilation-error-list)))))) |
;; compilation-skip-to-next-location). |
1434 |
|
(if (null (cdr compilation-error-list)) |
1435 |
|
compilation-parsing-end |
1436 |
|
(caar (cdr compilation-error-list))))))) |
1437 |
(setq compilation-error-list (cdr compilation-error-list))) |
(setq compilation-error-list (cdr compilation-error-list))) |
1438 |
(or compilation-error-list |
(or compilation-error-list |
1439 |
(error "No error to go to"))) |
(error "No error to go to"))) |
1465 |
;; compilation-next-error-locus. |
;; compilation-next-error-locus. |
1466 |
(or (null (marker-buffer (caar compilation-error-list))) |
(or (null (marker-buffer (caar compilation-error-list))) |
1467 |
(and (> (point) (caar compilation-error-list)) |
(and (> (point) (caar compilation-error-list)) |
1468 |
(cdr compilation-error-list) |
(>= (point) |
1469 |
(>= (point) (caar (cdr compilation-error-list)))))) |
;; Don't skip too far: the text between |
1470 |
|
;; two errors belongs to the first. This |
1471 |
|
;; in-between text might be other errors |
1472 |
|
;; on the same line (see |
1473 |
|
;; compilation-skip-to-next-location). |
1474 |
|
(if (null (cdr compilation-error-list)) |
1475 |
|
compilation-parsing-end |
1476 |
|
(caar (cdr compilation-error-list))))))) |
1477 |
(setq compilation-error-list (cdr compilation-error-list))) |
(setq compilation-error-list (cdr compilation-error-list))) |
1478 |
|
|
1479 |
(push-mark) |
(push-mark) |