# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868689764 0
# Node ID 1c1a002339a5ed5fbdd33d94cfcafb18d448d6ec
# Parent  a56124aa216483ff2f9db2524bffadcf02574712
(set_point): Convert call2 arguments to Lisp_Integer.

diff -r a56124aa2164 -r 1c1a002339a5 src/intervals.c
--- a/src/intervals.c	Sat Jul 12 06:42:03 1997 +0000
+++ b/src/intervals.c	Sat Jul 12 06:42:44 1997 +0000
@@ -1832,14 +1832,18 @@
 	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));
     }
 }