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

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 884e93d0aa5c70b893a1e4419961b4e48444ce74..dd7eccfc2086cf340e3f12114256ba791428ac52 100644 (file)
--- 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