(compilation-next-error-locus): Finish last change.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index dd7eccfc2086cf340e3f12114256ba791428ac52..69ca0b51fa2ee3bfb53b71d00f854e85f84e3c05 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1025,7 +1025,7 @@ The current buffer should be the desired compilation output buffer."
                                                                lines))
                                         (forward-line lines))
                                       (if column
-                                          (move-to-column column))
+                                          (move-to-column (1- column)))
                                       (setq last-line this)
                                       (setcdr (car errors) (point-marker))))
                                (setq errors (cdr errors)))))))))