diff options
author | Sam Steingold <[email protected]> | 2009-03-03 22:26:24 +0000 |
---|---|---|
committer | Sam Steingold <[email protected]> | 2009-03-03 22:26:24 +0000 |
commit | ee15d7591b3d38fd46c02f814b4c49604ca88cb2 (patch) | |
tree | a81196804a4d57fcb04e15afee32cfbc4e4e5a8e | |
parent | 9927d25059bbe990605a4e6bf8ad74946b0d575a (diff) |
(compilation-move-to-column): Guard against negative col values.
-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 8944b03af0..d1d7960bd8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-03-03 Sam Steingold <[email protected]> + + * progmodes/compile.el (compilation-move-to-column): + Guard against negative col values. + 2009-03-03 Simon Josefsson <[email protected]> * mail/smtpmail.el (smtpmail-auth-supported): Mention that list is diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 68a408f698..ee2e09132e 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) |