From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 12 Jul 1997 06:42:44 +0000 (+0000)
Subject: (set_point): Convert call2 arguments to Lisp_Integer.
X-Git-Tag: emacs-20.1~1203
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4dcb3ee353fda3654ee0350875938573632943cb;p=emacs.git

(set_point): Convert call2 arguments to Lisp_Integer.
---

diff --git a/src/intervals.c b/src/intervals.c
index 995b1cfb2eb..33cef35c654 100644
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1832,14 +1832,18 @@ set_point (position, buffer)
 	enter_before = Qnil;
 
       if (! EQ (leave_before, enter_before) && !NILP (leave_before))
-	call2 (leave_before, old_position, position);
+	call2 (leave_before, make_number (old_position),
+	       make_number (position));
       if (! EQ (leave_after, enter_after) && !NILP (leave_after))
-	call2 (leave_after, old_position, position);
+	call2 (leave_after, make_number (old_position),
+	       make_number (position));
 
       if (! EQ (enter_before, leave_before) && !NILP (enter_before))
-	call2 (enter_before, old_position, position);
+	call2 (enter_before, make_number (old_position),
+	       make_number (position));
       if (! EQ (enter_after, leave_after) && !NILP (enter_after))
-	call2 (enter_after, old_position, position);
+	call2 (enter_after, make_number (old_position),
+	       make_number (position));
     }
 }