(set_point): Convert call2 arguments to Lisp_Integer.

diff --git a/src/intervals.c b/src/intervals.c
index 995b1cfb2ebe630ba1b61891d48871bbe35d364e..33cef35c654d84501dc94280a8745a76eb9547de 100644 (file)
--- 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));
     }
 }