diff options
| author | Richard M. Stallman | 2005-11-07 00:49:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-11-07 00:49:17 +0000 |
| commit | 8dfb3e16101f355f731da5272cac6266aec06af3 (patch) | |
| tree | e074823b0201f50354e6f2968ea5aa7430fd4fe4 | |
| parent | 9514fb7f5ebf40e7e1d2565cda4e8ffca99b15da (diff) | |
| download | emacs-8dfb3e16101f355f731da5272cac6266aec06af3.tar.gz emacs-8dfb3e16101f355f731da5272cac6266aec06af3.zip | |
(compilation-internal-error-properties):
save-excursion around the computation of MARKER.
| -rw-r--r-- | lisp/progmodes/compile.el | 37 |
1 files changed, 19 insertions, 18 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index d041fa366c8..a158ad3f4e0 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -707,24 +707,25 @@ FMTS is a list of format specs for transforming the file name. | |||
| 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 |