diff options
| author | Richard M. Stallman | 2007-03-11 21:16:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-03-11 21:16:09 +0000 |
| commit | b0aa2c6515afd7f4cd35934f411d82427eecbc7b (patch) | |
| tree | 2736c3ef69e23038a48f223a4da0ae04b0fa6923 /lisp | |
| parent | 9b73fa0b88684652935aae9edfadd2fd309b0ace (diff) | |
| download | emacs-b0aa2c6515afd7f4cd35934f411d82427eecbc7b.tar.gz emacs-b0aa2c6515afd7f4cd35934f411d82427eecbc7b.zip | |
(byte-compile-warning-prefix): Correctly compute line number.
Diffstat (limited to 'lisp')
| -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'." | |||
| 972 | (pos (if (and byte-compile-current-file | 972 | (pos (if (and byte-compile-current-file |
| 973 | (integerp byte-compile-read-position)) | 973 | (integerp byte-compile-read-position)) |
| 974 | (with-current-buffer byte-compile-current-buffer | 974 | (with-current-buffer byte-compile-current-buffer |
| 975 | (format "%d:%d:" (count-lines (point-min) | 975 | (format "%d:%d:" |
| 976 | byte-compile-last-position) | 976 | (save-excursion |
| 977 | (goto-char byte-compile-last-position) | ||
| 978 | (1+ (count-lines (point-min) (point-at-bol)))) | ||
| 977 | (save-excursion | 979 | (save-excursion |
| 978 | (goto-char byte-compile-last-position) | 980 | (goto-char byte-compile-last-position) |
| 979 | (1+ (current-column))))) | 981 | (1+ (current-column))))) |