118 |
(function (lambda (file subexpr) |
(function (lambda (file subexpr) |
119 |
(setq compilation-error-list |
(setq compilation-error-list |
120 |
(cons |
(cons |
121 |
(cons (save-excursion |
(list (save-excursion |
122 |
;; Report location of message |
;; Report location of message |
123 |
;; at beginning of line. |
;; at beginning of line. |
124 |
(goto-char |
(goto-char |
126 |
(beginning-of-line) |
(beginning-of-line) |
127 |
(point-marker)) |
(point-marker)) |
128 |
;; Report location of corresponding text. |
;; Report location of corresponding text. |
129 |
(let ((line (string-to-int |
(list file nil) |
130 |
(buffer-substring |
(string-to-int |
131 |
(match-beginning subexpr) |
(buffer-substring |
132 |
(match-end subexpr))))) |
(match-beginning subexpr) |
133 |
(save-excursion |
(match-end subexpr))) |
134 |
(save-match-data |
nil) |
|
(set-buffer (find-file-noselect file))) |
|
|
(save-excursion |
|
|
(goto-line line) |
|
|
(point-marker))))) |
|
135 |
compilation-error-list))))) |
compilation-error-list))))) |
136 |
|
|
137 |
(found-desired nil) |
(found-desired nil) |