aboutsummaryrefslogtreecommitdiffstats
path: root/src/marker.c
diff options
context:
space:
mode:
authorKarl Heuer1998-04-13 18:56:44 +0000
committerKarl Heuer1998-04-13 18:56:44 +0000
commitb8f477cbd2866d49ff9816ccabdda0b9bb950d67 (patch)
tree7d57552b757ad870f78f3a52e427aca71edc6e37 /src/marker.c
parent9fdae274dda00e3a0cf1284bc88daf537c2f8772 (diff)
downloademacs-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.c20
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)