diff options
author | Karl Heuer <kwzh@gnu.org> | 1995-06-06 01:40:34 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1995-06-06 01:40:34 +0000 |
commit | 3d09d0562c7d1bdac7951b88c0871116a8a4337d (patch) | |
tree | 08bfc554558d78a44e55503a7079be45484fa753 /src/undo.c | |
parent | 2bf597b39ff0221abccd0b39a8f993046be80fa5 (diff) | |
download | emacs-3d09d0562c7d1bdac7951b88c0871116a8a4337d.tar.gz |
(record_insert): Change args to be ints, not Lisp_Objects.
Diffstat (limited to 'src/undo.c')
-rw-r--r-- | src/undo.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/undo.c b/src/undo.c index 86c30c5d226..2f37bae8477 100644 --- a/src/undo.c +++ b/src/undo.c @@ -42,7 +42,7 @@ Lisp_Object pending_boundary; 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 @@ record_insert (beg, length) 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); } |