From ee15d7591b3d38fd46c02f814b4c49604ca88cb2 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 3 Mar 2009 22:26:24 +0000 Subject: [PATCH] (compilation-move-to-column): Guard against negative col values. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/compile.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * progmodes/compile.el (compilation-move-to-column): + Guard against negative col values. + 2009-03-03 Simon Josefsson * 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) -- 2.11.4.GIT