diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-03-11 21:16:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-03-11 21:16:09 +0000 |
| commit | 7ac4b0ae01054ae2fde55d3ccc3a948502f9f002 (patch) | |
| tree | 8de1d9ccd5e7bf0d80b94806a2922220796648f0 /lisp/emacs-lisp/bytecomp.el | |
| parent | 07244fb9f44ab316f6952d5d2b797664091c949c (diff) | |
| download | emacs-7ac4b0ae01054ae2fde55d3ccc3a948502f9f002.tar.gz | |
(byte-compile-warning-prefix): Correctly compute line number.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 1d7cbfc422c..f74e48c4635 100644 --- 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))))) |