diff options
| author | Karl Heuer | 1998-04-13 18:56:44 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-04-13 18:56:44 +0000 |
| commit | b8f477cbd2866d49ff9816ccabdda0b9bb950d67 (patch) | |
| tree | 7d57552b757ad870f78f3a52e427aca71edc6e37 /src/marker.c | |
| parent | 9fdae274dda00e3a0cf1284bc88daf537c2f8772 (diff) | |
| download | emacs-b8f477cbd2866d49ff9816ccabdda0b9bb950d67.tar.gz emacs-b8f477cbd2866d49ff9816ccabdda0b9bb950d67.zip | |
(buf_charpos_to_bytepos, buf_bytepos_to_charpos):
When calling set_marker_both, pass the right buffer.
Diffstat (limited to 'src/marker.c')
| -rw-r--r-- | src/marker.c | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/src/marker.c b/src/marker.c index c1b4e0418a6..e79e800b9b3 100644 --- a/src/marker.c +++ b/src/marker.c | |||
| @@ -199,9 +199,10 @@ buf_charpos_to_bytepos (b, charpos) | |||
| 199 | It will last until the next GC. */ | 199 | It will last until the next GC. */ |
| 200 | if (record) | 200 | if (record) |
| 201 | { | 201 | { |
| 202 | Lisp_Object marker; | 202 | Lisp_Object marker, buffer; |
| 203 | marker = Fmake_marker (); | 203 | marker = Fmake_marker (); |
| 204 | set_marker_both (marker, Qnil, best_below, best_below_byte); | 204 | XSETBUFFER (buffer, b); |
| 205 | set_marker_both (marker, buffer, best_below, best_below_byte); | ||
| 205 | } | 206 | } |
| 206 | 207 | ||
| 207 | if (byte_debug_flag) | 208 | if (byte_debug_flag) |
| @@ -229,9 +230,10 @@ buf_charpos_to_bytepos (b, charpos) | |||
| 229 | It will last until the next GC. */ | 230 | It will last until the next GC. */ |
| 230 | if (record) | 231 | if (record) |
| 231 | { | 232 | { |
| 232 | Lisp_Object marker; | 233 | Lisp_Object marker, buffer; |
| 233 | marker = Fmake_marker (); | 234 | marker = Fmake_marker (); |
| 234 | set_marker_both (marker, Qnil, best_above, best_above_byte); | 235 | XSETBUFFER (buffer, b); |
| 236 | set_marker_both (marker, buffer, best_above, best_above_byte); | ||
| 235 | } | 237 | } |
| 236 | 238 | ||
| 237 | if (byte_debug_flag) | 239 | if (byte_debug_flag) |
| @@ -365,9 +367,10 @@ buf_bytepos_to_charpos (b, bytepos) | |||
| 365 | It will last until the next GC. */ | 367 | It will last until the next GC. */ |
| 366 | if (record) | 368 | if (record) |
| 367 | { | 369 | { |
| 368 | Lisp_Object marker; | 370 | Lisp_Object marker, buffer; |
| 369 | marker = Fmake_marker (); | 371 | marker = Fmake_marker (); |
| 370 | set_marker_both (marker, Qnil, best_below, best_below_byte); | 372 | XSETBUFFER (buffer, b); |
| 373 | set_marker_both (marker, buffer, best_below, best_below_byte); | ||
| 371 | } | 374 | } |
| 372 | 375 | ||
| 373 | if (byte_debug_flag) | 376 | if (byte_debug_flag) |
| @@ -395,9 +398,10 @@ buf_bytepos_to_charpos (b, bytepos) | |||
| 395 | It will last until the next GC. */ | 398 | It will last until the next GC. */ |
| 396 | if (record) | 399 | if (record) |
| 397 | { | 400 | { |
| 398 | Lisp_Object marker; | 401 | Lisp_Object marker, buffer; |
| 399 | marker = Fmake_marker (); | 402 | marker = Fmake_marker (); |
| 400 | set_marker_both (marker, Qnil, best_above, best_above_byte); | 403 | XSETBUFFER (buffer, b); |
| 404 | set_marker_both (marker, buffer, best_above, best_above_byte); | ||
| 401 | } | 405 | } |
| 402 | 406 | ||
| 403 | if (byte_debug_flag) | 407 | if (byte_debug_flag) |