# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1236119184 0
# Node ID 51a8a51bd2a2173ccec9c69439f6c061f3a7a70c
# Parent  b83a02b58e7f3dfd71a55143b215d72e2b0bf5fd
(compilation-move-to-column): Guard against negative col values.

diff -r b83a02b58e7f -r 51a8a51bd2a2 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Mar 03 16:28:17 2009 +0000
+++ b/lisp/ChangeLog	Tue Mar 03 22:26:24 2009 +0000
@@ -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 -r b83a02b58e7f -r 51a8a51bd2a2 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Tue Mar 03 16:28:17 2009 +0000
+++ b/lisp/progmodes/compile.el	Tue Mar 03 22:26:24 2009 +0000
@@ -864,7 +864,7 @@
 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)