# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 802402834 0
# Node ID f0c9d02fb6e4874ffcc88c451d1680fc1bd662a0
# Parent  3bbf71f1cf3049cc5d8761e14434a31c51f6b8a5
(record_insert): Change args to be ints, not Lisp_Objects.

diff -r 3bbf71f1cf30 -r f0c9d02fb6e4 src/undo.c
--- a/src/undo.c	Tue Jun 06 01:39:40 1995 +0000
+++ b/src/undo.c	Tue Jun 06 01:40:34 1995 +0000
@@ -42,7 +42,7 @@
    because we don't need to record the contents.)  */
 
 record_insert (beg, length)
-     Lisp_Object beg, length;
+     int beg, length;
 {
   Lisp_Object lbeg, lend;
 
@@ -69,15 +69,15 @@
       if (CONSP (elt)
 	  && INTEGERP (XCONS (elt)->car)
 	  && INTEGERP (XCONS (elt)->cdr)
-	  && XINT (XCONS (elt)->cdr) == XINT (beg))
+	  && XINT (XCONS (elt)->cdr) == beg)
 	{
-	  XSETINT (XCONS (elt)->cdr, XINT (beg) + XINT (length));
+	  XSETINT (XCONS (elt)->cdr, beg + length);
 	  return;
 	}
     }
 
-  lbeg = beg;
-  XSETINT (lend, XINT (beg) + XINT (length));
+  XSETFASTINT (lbeg, beg);
+  XSETINT (lend, beg + length);
   current_buffer->undo_list = Fcons (Fcons (lbeg, lend),
                                      current_buffer->undo_list);
 }