diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-04-13 18:56:44 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-04-13 18:56:44 +0000 |
| commit | b8f477cbd2866d49ff9816ccabdda0b9bb950d67 (patch) | |
| tree | 7d57552b757ad870f78f3a52e427aca71edc6e37 /src/marker.c | |
| parent | 9fdae274dda00e3a0cf1284bc88daf537c2f8772 (diff) | |
| download | emacs-b8f477cbd2866d49ff9816ccabdda0b9bb950d67.tar.gz | |
(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) It will last until the next GC. */ if (record) { - Lisp_Object marker; + Lisp_Object marker, buffer; marker = Fmake_marker (); - set_marker_both (marker, Qnil, best_below, best_below_byte); + XSETBUFFER (buffer, b); + set_marker_both (marker, buffer, best_below, best_below_byte); } if (byte_debug_flag) @@ -229,9 +230,10 @@ buf_charpos_to_bytepos (b, charpos) It will last until the next GC. */ if (record) { - Lisp_Object marker; + Lisp_Object marker, buffer; marker = Fmake_marker (); - set_marker_both (marker, Qnil, best_above, best_above_byte); + XSETBUFFER (buffer, b); + set_marker_both (marker, buffer, best_above, best_above_byte); } if (byte_debug_flag) @@ -365,9 +367,10 @@ buf_bytepos_to_charpos (b, bytepos) It will last until the next GC. */ if (record) { - Lisp_Object marker; + Lisp_Object marker, buffer; marker = Fmake_marker (); - set_marker_both (marker, Qnil, best_below, best_below_byte); + XSETBUFFER (buffer, b); + set_marker_both (marker, buffer, best_below, best_below_byte); } if (byte_debug_flag) @@ -395,9 +398,10 @@ buf_bytepos_to_charpos (b, bytepos) It will last until the next GC. */ if (record) { - Lisp_Object marker; + Lisp_Object marker, buffer; marker = Fmake_marker (); - set_marker_both (marker, Qnil, best_above, best_above_byte); + XSETBUFFER (buffer, b); + set_marker_both (marker, buffer, best_above, best_above_byte); } if (byte_debug_flag) |