[Emacs-diffs] emacs/lisp ChangeLog progmodes/compile.el

[Sam Steingold]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Sam Steingold <sds>     09/03/03 22:26:27

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : compile.el 

Log message:
        (compilation-move-to-column): Guard against negative col values.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15427&r2=1.15428
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/compile.el?cvsroot=emacs&r1=1.490&r2=1.491

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15427
retrieving revision 1.15428
diff -u -b -r1.15427 -r1.15428
--- ChangeLog   3 Mar 2009 16:28:17 -0000       1.15427
+++ ChangeLog   3 Mar 2009 22:26:24 -0000       1.15428
@@ -1,3 +1,8 @@
+2009-03-03  Sam Steingold  <address@hidden>
+
+       * progmodes/compile.el (compilation-move-to-column):
+       Guard against negative col values.
+
 2009-03-03  Simon Josefsson  <address@hidden>
 
        * mail/smtpmail.el (smtpmail-auth-supported): Mention that list is

Index: progmodes/compile.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.490
retrieving revision 1.491
diff -u -b -r1.490 -r1.491
--- progmodes/compile.el        21 Feb 2009 19:50:17 -0000      1.490
+++ progmodes/compile.el        3 Mar 2009 22:26:26 -0000       1.491
@@ -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)