From 8eb2676516c6f79683a94bcf1ed1b1a2a83ecb72 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 12 Jul 1994 04:09:07 +0000 Subject: [PATCH] (compilation-next-error-locus): Don't call compilation-forget-errors if compilation is still runing. --- lisp/progmodes/compile.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 -- 2.39.5