# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 892493804 0
# Node ID 837148a1541f656197d2ba68bd6d05a2af5e15c7
# Parent  6ec5e85328a99b3ea8e00a9e96b208e18f26041b
(buf_charpos_to_bytepos, buf_bytepos_to_charpos):
When calling set_marker_both, pass the right buffer.

diff -r 6ec5e85328a9 -r 837148a1541f src/marker.c
--- a/src/marker.c	Mon Apr 13 18:56:00 1998 +0000
+++ b/src/marker.c	Mon Apr 13 18:56:44 1998 +0000
@@ -199,9 +199,10 @@
 	 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 @@
 	 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 @@
 	 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 @@
 	 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)