Mercurial > emacs
comparison lisp/progmodes/compile.el @ 66735:11893f0cbfb1
(compilation-internal-error-properties):
save-excursion around the computation of MARKER.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 07 Nov 2005 00:49:17 +0000 |
| parents | bc2d2dc9f534 |
| children | 146389d32df6 |
comparison
equal
deleted
inserted
replaced
| 66734:a61fa64e1765 | 66735:11893f0cbfb1 |
|---|---|
| 705 (setq marker-line x)) | 705 (setq marker-line x)) |
| 706 (throw 'marker t)))) | 706 (throw 'marker t)))) |
| 707 (setq marker (nth 3 (cadr marker-line)) | 707 (setq marker (nth 3 (cadr marker-line)) |
| 708 marker-line (or (car marker-line) 1)) | 708 marker-line (or (car marker-line) 1)) |
| 709 (with-current-buffer (marker-buffer marker) | 709 (with-current-buffer (marker-buffer marker) |
| 710 (save-restriction | 710 (save-excursion |
| 711 (widen) | 711 (save-restriction |
| 712 (goto-char (marker-position marker)) | 712 (widen) |
| 713 (when (or end-col end-line) | 713 (goto-char (marker-position marker)) |
| 714 (beginning-of-line (- (or end-line line) marker-line -1)) | 714 (when (or end-col end-line) |
| 715 (if (or (null end-col) (< end-col 0)) | 715 (beginning-of-line (- (or end-line line) marker-line -1)) |
| 716 (end-of-line) | 716 (if (or (null end-col) (< end-col 0)) |
| 717 (compilation-move-to-column | 717 (end-of-line) |
| 718 end-col compilation-error-screen-columns)) | 718 (compilation-move-to-column |
| 719 (setq end-marker (list (point-marker)))) | 719 end-col compilation-error-screen-columns)) |
| 720 (beginning-of-line (if end-line | 720 (setq end-marker (list (point-marker)))) |
| 721 (- line end-line -1) | 721 (beginning-of-line (if end-line |
| 722 (- loc marker-line -1))) | 722 (- line end-line -1) |
| 723 (if col | 723 (- loc marker-line -1))) |
| 724 (compilation-move-to-column | 724 (if col |
| 725 col compilation-error-screen-columns) | 725 (compilation-move-to-column |
| 726 (forward-to-indentation 0)) | 726 col compilation-error-screen-columns) |
| 727 (setq marker (list (point-marker)))))) | 727 (forward-to-indentation 0)) |
| 728 (setq marker (list (point-marker))))))) | |
| 728 | 729 |
| 729 (setq loc (compilation-assq line (cdr file-struct))) | 730 (setq loc (compilation-assq line (cdr file-struct))) |
| 730 (if end-line | 731 (if end-line |
| 731 (setq end-loc (compilation-assq end-line (cdr file-struct)) | 732 (setq end-loc (compilation-assq end-line (cdr file-struct)) |
| 732 end-loc (compilation-assq end-col end-loc)) | 733 end-loc (compilation-assq end-col end-loc)) |