(compilation-next-error-locus): Use compilation-error-message instead of

"Moved past last error" when MOVE is 1 (default value).

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 2ec9edae9e9..a9544f2585f 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -853,9 +853,10 @@ The current buffer should be the desired compilation output buffer."
       (while
           (if (null next-error)
               (progn
-                (if move (if (> move 0)
-                             (error "Moved past last error")
-                           (error "Moved back past first error")))
+                (and move (/= move 1)
+                     (error (if (> move 0)
+                                "Moved past last error")
+                            "Moved back past first error"))
                 (compilation-forget-errors)
                 (error (concat compilation-error-message
                                (and (get-buffer-process (current-buffer))