diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 2 |
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) |