# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 865211326 0
# Node ID b129c5fd792554b7c8f6102ed3f015d53caea1f3
# Parent  bc690c1e195074eca241b3707b6bb4657443cf07
(Fcompare_buffer_substrings): trt contains Lisp_Objects.
(transpose_markers): Use marker_position, not Fmarker_position.

diff -r bc690c1e1950 -r b129c5fd7925 src/editfns.c
--- a/src/editfns.c	Mon Jun 02 00:24:11 1997 +0000
+++ b/src/editfns.c	Mon Jun 02 00:28:46 1997 +0000
@@ -1676,8 +1676,8 @@
       int c2 = *BUF_CHAR_ADDRESS (bp2, begp2 + i);
       if (trt)
 	{
-	  c1 = trt[c1];
-	  c2 = trt[c2];
+	  c1 = XINT (trt[c1]);
+	  c2 = XINT (trt[c2]);
 	}
       if (c1 < c2)
 	return make_number (- 1 - i);
@@ -2369,7 +2369,7 @@
   for (marker = BUF_MARKERS (current_buffer); !NILP (marker);
        marker = XMARKER (marker)->chain)
     {
-      mpos = Fmarker_position (marker);
+      mpos = marker_position (marker);
       if (mpos >= start1 && mpos < end2)
 	{
 	  if (mpos < end1)