[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Richard M . Stallman]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.388 
emacs/lisp/progmodes/compile.el:1.389
*** emacs/lisp/progmodes/compile.el:1.388       Sun Oct 16 14:12:50 2005
--- emacs/lisp/progmodes/compile.el     Mon Nov  7 00:49:17 2005
***************
*** 707,730 ****
        (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))))))
  
      (setq loc (compilation-assq line (cdr file-struct)))
      (if end-line
--- 707,731 ----
        (setq marker (nth 3 (cadr marker-line))
            marker-line (or (car marker-line) 1))
        (with-current-buffer (marker-buffer 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