(set_point): Convert call2 arguments to Lisp_Integer.

1 files changed, 8 insertions, 4 deletions

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));
     }
 }