[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       07/03/11 21:16:09

Index: bytecomp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.194
retrieving revision 2.195
diff -u -b -r2.194 -r2.195
--- bytecomp.el 13 Feb 2007 12:07:26 -0000      2.194
+++ bytecomp.el 11 Mar 2007 21:16:09 -0000      2.195
@@ -972,8 +972,10 @@
         (pos (if (and byte-compile-current-file
                       (integerp byte-compile-read-position))
                  (with-current-buffer byte-compile-current-buffer
-                   (format "%d:%d:" (count-lines (point-min)
-                                                 byte-compile-last-position)
+                   (format "%d:%d:" 
+                           (save-excursion
+                             (goto-char byte-compile-last-position)
+                             (1+ (count-lines (point-min) (point-at-bol))))
                            (save-excursion
                              (goto-char byte-compile-last-position)
                              (1+ (current-column)))))