From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 2 Jun 1997 00:28:46 +0000 (+0000)
Subject: (Fcompare_buffer_substrings): trt contains Lisp_Objects.
X-Git-Tag: emacs-20.1~1840
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b10fb7768fd8d7efc6a77634ede39da712cb789;p=emacs.git

(Fcompare_buffer_substrings): trt contains Lisp_Objects.
(transpose_markers): Use marker_position, not Fmarker_position.
---

diff --git a/src/editfns.c b/src/editfns.c
index a195e15a3a5..0506e37ef50 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)