Mercurial > emacs
changeset 102383:51a8a51bd2a2
(compilation-move-to-column): Guard against negative col values.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Tue, 03 Mar 2009 22:26:24 +0000 |
| parents | b83a02b58e7f |
| children | 157bdf35840d |
| files | lisp/ChangeLog lisp/progmodes/compile.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)