# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1185817104 0
# Node ID acc4dc607d14f2062394aaa006c2025273f9f718
# Parent  12580d7bad1ec014c7004eed3ce8a5617b7288db
(compilation-forget-errors): Reset compilation-auto-jump-to-next.

diff -r 12580d7bad1e -r acc4dc607d14 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jul 30 16:15:28 2007 +0000
+++ b/lisp/ChangeLog	Mon Jul 30 17:38:24 2007 +0000
@@ -1,3 +1,8 @@
+2007-07-30  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/compile.el (compilation-forget-errors):
+	Reset compilation-auto-jump-to-next.
+
 2007-07-30  Michael Olson  <mwolson@gnu.org>
 
 	* cus-edit.el (custom-group-save): Fix void function definition
diff -r 12580d7bad1e -r acc4dc607d14 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Jul 30 16:15:28 2007 +0000
+++ b/lisp/progmodes/compile.el	Mon Jul 30 17:38:24 2007 +0000
@@ -2050,9 +2050,9 @@
   ;; compilation-error-list) to point-min, but that was only meaningful for
   ;; the internal uses of compilation-forget-errors: all calls from external
   ;; packages seem to be followed by a move of compilation-parsing-end to
-  ;; something equivalent to point-max.  So we speculatively move
+  ;; something equivalent to point-max.  So we heuristically move
   ;; compilation-current-error to point-max (since the external package
-  ;; won't know that it should do it).  --stef
+  ;; won't know that it should do it).  --Stef
   (setq compilation-current-error nil)
   (let* ((proc (get-buffer-process (current-buffer)))
 	 (mark (if proc (process-mark proc)))
@@ -2063,7 +2063,12 @@
 	  ;; we need to put ours just before the insertion point rather
 	  ;; than at the insertion point.  If that's not possible, then
 	  ;; don't use a marker.  --Stef
-	  (if (> pos (point-min)) (copy-marker (1- pos)) pos))))
+	  (if (> pos (point-min)) (copy-marker (1- pos)) pos)))
+  ;; Again, since this command is used in buffers that contain several
+  ;; compilations, to set the beginning of "this compilation", it's a good
+  ;; place to reset compilation-auto-jump-to-next.
+  (set (make-local-variable 'compilation-auto-jump-to-next)
+       compilation-auto-jump-to-first-error))
 
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.gcov\\'" . compilation-mode))