(compilation-next-error-locus): Don't call

compilation-forget-errors if compilation is still runing.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 784b44d3921d16ab5954dcf17377c8bb1b111957..087c2ebf20a1d32dad6e77ba4a3114ac121861d2 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -863,7 +863,13 @@ The current buffer should be the desired compilation output buffer."
                     (error (if (> move 0)
                                "Moved past last error")
                            "Moved back past first error"))
-               (compilation-forget-errors)
+               ;; Forget existing error messages if compilation has finished.
+               (if (not (and (get-buffer-process (current-buffer))
+                             (eq (process-status
+                                  (get-buffer-process
+                                   (current-buffer)))
+                                 'run)))
+                   (compilation-forget-errors))
                (error (concat compilation-error-message
                               (and (get-buffer-process (current-buffer))
                                    (eq (process-status