(byte-compile-warning-prefix): Correctly compute line number.

b0aa2c65 · Richard M. Stallman · 9b73fa0b · b0aa2c65
Commit b0aa2c65 authored Mar 11, 2007 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/emacs-lisp/bytecomp.el lisp/emacs-lisp/bytecomp.el +4 -2

No files found.
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -972,8 +972,10 @@ Each function's symbol gets added to `byte-compile-noruntime-functions'."
 	 (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)))))