(compilation-next-error-locus): Parsed column numbers are 1-origin.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 884e93d0aa5..dd7eccfc208 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1000,7 +1000,8 @@ The current buffer should be the desired compilation output buffer."
                               (widen)
                               (goto-line last-line)
                               (if column
-                                  (move-to-column column)
+                                  ;; Columns in error msgs are 1-origin.
+                                  (move-to-column (1- column))
                                 (beginning-of-line))
                               (setcdr next-error (point-marker))
                               ;; Make all the other error messages referring