707 |
(setq marker (nth 3 (cadr marker-line)) |
(setq marker (nth 3 (cadr marker-line)) |
708 |
marker-line (or (car marker-line) 1)) |
marker-line (or (car marker-line) 1)) |
709 |
(with-current-buffer (marker-buffer marker) |
(with-current-buffer (marker-buffer marker) |
710 |
(save-restriction |
(save-excursion |
711 |
(widen) |
(save-restriction |
712 |
(goto-char (marker-position marker)) |
(widen) |
713 |
(when (or end-col end-line) |
(goto-char (marker-position marker)) |
714 |
(beginning-of-line (- (or end-line line) marker-line -1)) |
(when (or end-col end-line) |
715 |
(if (or (null end-col) (< end-col 0)) |
(beginning-of-line (- (or end-line line) marker-line -1)) |
716 |
(end-of-line) |
(if (or (null end-col) (< end-col 0)) |
717 |
(compilation-move-to-column |
(end-of-line) |
718 |
end-col compilation-error-screen-columns)) |
(compilation-move-to-column |
719 |
(setq end-marker (list (point-marker)))) |
end-col compilation-error-screen-columns)) |
720 |
(beginning-of-line (if end-line |
(setq end-marker (list (point-marker)))) |
721 |
(- line end-line -1) |
(beginning-of-line (if end-line |
722 |
(- loc marker-line -1))) |
(- line end-line -1) |
723 |
(if col |
(- loc marker-line -1))) |
724 |
(compilation-move-to-column |
(if col |
725 |
col compilation-error-screen-columns) |
(compilation-move-to-column |
726 |
(forward-to-indentation 0)) |
col compilation-error-screen-columns) |
727 |
(setq marker (list (point-marker)))))) |
(forward-to-indentation 0)) |
728 |
|
(setq marker (list (point-marker))))))) |
729 |
|
|
730 |
(setq loc (compilation-assq line (cdr file-struct))) |
(setq loc (compilation-assq line (cdr file-struct))) |
731 |
(if end-line |
(if end-line |