(compilation-move-to-column): Guard against negative col values.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8944b03af035b9012c474d84ad704fd75aa70627..d1d7960bd85b4b15471c7ac1ed6f01b7f257cd9e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-03-03  Sam Steingold  <sds@gnu.org>
+
+       * progmodes/compile.el (compilation-move-to-column):
+       Guard against negative col values.
+
 2009-03-03  Simon Josefsson  <simon@josefsson.org>
 
        * mail/smtpmail.el (smtpmail-auth-supported): Mention that list is

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 68a408f6987c995ac15e1574b868666dfc822bfb..ee2e09132e7ba137bb7fb3b6cc563a4b110479b9 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -864,7 +864,7 @@ from a different message."
 If SCREEN is non-nil, columns are screen columns, otherwise, they are
 just char-counts."
   (if screen
-      (move-to-column col)
+      (move-to-column (max col 0))
     (goto-char (min (+ (line-beginning-position) col) (line-end-position)))))
 
 (defun compilation-internal-error-properties (file line end-line col end-col type fmts)