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

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8944b03af03..d1d7960bd85 100644
--- 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 68a408f6987..ee2e09132e7 100644
--- 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)