Mercurial > emacs

changeset 76463:63e4cb93803a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-warning-prefix): Correctly compute line number.
author Richard M. Stallman <rms@gnu.org>
date Sun, 11 Mar 2007 21:16:09 +0000
parents deede4f7067d
children f4a10797c3ce
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el	Sun Mar 11 21:08:45 2007 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Sun Mar 11 21:16:09 2007 +0000
@@ -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)))))