# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841808044 0
# Node ID 76bd16bb5906f1880b16ba7aafc1652865f45c5f
# Parent  039e96495054b84e86c74d7c16dd469533337c46
(prepare_to_modify_buffer): Take integer arguments.
(signal_before_change): Take integer arguments.

diff -r 039e96495054 -r 76bd16bb5906 src/insdel.c
--- a/src/insdel.c	Wed Sep 04 00:06:48 1996 +0000
+++ b/src/insdel.c	Wed Sep 04 03:34:04 1996 +0000
@@ -739,7 +739,7 @@
 
 void
 prepare_to_modify_buffer (start, end)
-     Lisp_Object start, end;
+     int start, end;
 {
   if (!NILP (current_buffer->read_only))
     Fbarf_if_buffer_read_only ();
@@ -779,13 +779,17 @@
 }
 
 /* Signal a change to the buffer immediately before it happens.
-   START and END are the bounds of the text to be changed,
-   as Lisp objects.  */
+   START_INT and END_INT are the bounds of the text to be changed.  */
 
 void
 signal_before_change (start, end)
-     Lisp_Object start, end;
+     int start_int, end_end;
 {
+  Lisp_Object start, end;
+
+  start = make_number (start_int);
+  end = make_number (end_int);
+
   /* If buffer is unmodified, run a special hook for that case.  */
   if (SAVE_MODIFF >= MODIFF
       && !NILP (Vfirst_change_hook)