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

compilation-forget-errors if compilation is still runing.

1 files changed, 7 insertions, 1 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 784b44d3921..087c2ebf20a 100644
--- 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