710 |
`(,(car elt) |
`(,(car elt) |
711 |
(compilation-directory-properties |
(compilation-directory-properties |
712 |
,(car elt) ,(cdr elt)) |
,(car elt) ,(cdr elt)) |
713 |
t)) |
t t)) |
714 |
(cdr compilation-directory-matcher))))) |
(cdr compilation-directory-matcher))))) |
715 |
|
|
716 |
;; Compiler warning/error lines. |
;; Compiler warning/error lines. |
733 |
;; allowed `line' to be a function that computed the actual |
;; allowed `line' to be a function that computed the actual |
734 |
;; error location. Let's do our best. |
;; error location. Let's do our best. |
735 |
`(,(car item) |
`(,(car item) |
736 |
(0 (compilation-compat-error-properties |
(0 (save-match-data |
737 |
(funcall ',line (cons (match-string ,file) |
(compilation-compat-error-properties |
738 |
(cons default-directory |
(funcall ',line (cons (match-string ,file) |
739 |
',(nthcdr 4 item))) |
(cons default-directory |
740 |
,(if col `(match-string ,col))))) |
',(nthcdr 4 item))) |
741 |
|
,(if col `(match-string ,col)))))) |
742 |
(,file compilation-error-face t)) |
(,file compilation-error-face t)) |
743 |
|
|
744 |
(unless (or (null (nth 5 item)) (integerp (nth 5 item))) |
(unless (or (null (nth 5 item)) (integerp (nth 5 item))) |
1590 |
(point)))) |
(point)))) |
1591 |
(set-window-point w mk)) |
(set-window-point w mk)) |
1592 |
|
|
1593 |
|
(defvar next-error-highlight-timer) |
1594 |
|
|
1595 |
(defun compilation-goto-locus (msg mk end-mk) |
(defun compilation-goto-locus (msg mk end-mk) |
1596 |
"Jump to an error corresponding to MSG at MK. |
"Jump to an error corresponding to MSG at MK. |
1597 |
All arguments are markers. If END-MK is non-nil, mark is set there |
All arguments are markers. If END-MK is non-nil, mark is set there |