mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

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

Browse Source 
compilation-forget-errors if compilation is still runing.
This commit is contained in:
Richard M. Stallman 1994-07-12 04:09:07 +00:00
parent 673f4fc6c4
commit 8eb2676516
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/progmodes/compile.el
View File

@ -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