Mercurial > emacs
changeset 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 | a61fa64e1765 |
| children | 8bf6bc8d7145 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 19 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Sun Nov 06 21:09:09 2005 +0000 +++ b/lisp/progmodes/compile.el Mon Nov 07 00:49:17 2005 +0000 @@ -707,24 +707,25 @@ (setq marker (nth 3 (cadr marker-line)) marker-line (or (car marker-line) 1)) (with-current-buffer (marker-buffer marker) - (save-restriction - (widen) - (goto-char (marker-position marker)) - (when (or end-col end-line) - (beginning-of-line (- (or end-line line) marker-line -1)) - (if (or (null end-col) (< end-col 0)) - (end-of-line) - (compilation-move-to-column - end-col compilation-error-screen-columns)) - (setq end-marker (list (point-marker)))) - (beginning-of-line (if end-line - (- line end-line -1) - (- loc marker-line -1))) - (if col - (compilation-move-to-column - col compilation-error-screen-columns) - (forward-to-indentation 0)) - (setq marker (list (point-marker)))))) + (save-excursion + (save-restriction + (widen) + (goto-char (marker-position marker)) + (when (or end-col end-line) + (beginning-of-line (- (or end-line line) marker-line -1)) + (if (or (null end-col) (< end-col 0)) + (end-of-line) + (compilation-move-to-column + end-col compilation-error-screen-columns)) + (setq end-marker (list (point-marker)))) + (beginning-of-line (if end-line + (- line end-line -1) + (- loc marker-line -1))) + (if col + (compilation-move-to-column + col compilation-error-screen-columns) + (forward-to-indentation 0)) + (setq marker (list (point-marker))))))) (setq loc (compilation-assq line (cdr file-struct))) (if end-line