Commit 8eb26765 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

compilation-forget-errors if compilation is still runing.
parent 673f4fc6
...@@ -863,7 +863,13 @@ The current buffer should be the desired compilation output buffer." ...@@ -863,7 +863,13 @@ The current buffer should be the desired compilation output buffer."
(error (if (> move 0) (error (if (> move 0)
"Moved past last error") "Moved past last error")
"Moved back past first 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 (error (concat compilation-error-message
(and (get-buffer-process (current-buffer)) (and (get-buffer-process (current-buffer))
(eq (process-status (eq (process-status
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment