From 1b10fb7768fd8d7efc6a77634ede39da712cb789 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 2 Jun 1997 00:28:46 +0000 Subject: [PATCH] (Fcompare_buffer_substrings): trt contains Lisp_Objects. (transpose_markers): Use marker_position, not Fmarker_position. --- src/editfns.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index a195e15a3a..0506e37ef5 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -1676,8 +1676,8 @@ determines whether case is significant or ignored.") 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 @@ transpose_markers (start1, end1, start2, end2) 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) -- 2.20.1