[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.273 
emacs/lisp/progmodes/compile.el:1.274
*** emacs/lisp/progmodes/compile.el:1.273       Tue May 13 17:37:28 2003
--- emacs/lisp/progmodes/compile.el     Wed Jun  4 05:31:38 2003
***************
*** 1407,1413 ****
                          (if (> (- n) i)
                              (error "Moved back past first error")
                            (nth (+ i n) compilation-old-error-list)))
!                     (let ((compilation-error-list (cdr errors)))
                        (compile-reinitialize-errors nil nil n)
                        (if compilation-error-list
                            (nth (1- n) compilation-error-list)
--- 1407,1424 ----
                          (if (> (- n) i)
                              (error "Moved back past first error")
                            (nth (+ i n) compilation-old-error-list)))
!                     (save-excursion
!                       (while (> n 0)
!                         ;; Discard the current error and any previous.
!                         (while (>= (point) (car (car errors)))
!                           (setq errors (cdr errors)))
!                         ;; Now (car errors) is the next error.
!                         ;; If we want to move down more errors,
!                         ;; put point at this one and start again.
!                         (setq n (1- n))
!                         (if (and errors (> n 0))
!                             (goto-char (car (car errors))))))
!                     (let ((compilation-error-list errors))
                        (compile-reinitialize-errors nil nil n)
                        (if compilation-error-list
                            (nth (1- n) compilation-error-list)