diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-10-31 05:39:17 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-10-31 05:39:17 +0000 |
| commit | 213861c758e02024c33e51b0c0f1e21152d412c6 (patch) | |
| tree | 485054d5e9e4467a2ae1e6d5b1ea7c84ddf257ec /src/undo.c | |
| parent | d084e9427ff5c524cca4e079dc2d72713e280d5c (diff) | |
| download | emacs-213861c758e02024c33e51b0c0f1e21152d412c6.tar.gz | |
* undo.c (record_insert): Use accessors on BEG and LENGTH.
(truncate_undo_list): Use NILP, not == Qnil.
Diffstat (limited to 'src/undo.c')
| -rw-r--r-- | src/undo.c | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/undo.c b/src/undo.c index bc59c25a62d..53dc6ae2c54 100644 --- a/src/undo.c +++ b/src/undo.c @@ -54,16 +54,17 @@ record_insert (beg, length) if (XTYPE (elt) == Lisp_Cons && XTYPE (XCONS (elt)->car) == Lisp_Int && XTYPE (XCONS (elt)->cdr) == Lisp_Int - && XINT (XCONS (elt)->cdr) == beg) + && XINT (XCONS (elt)->cdr) == XINT (beg)) { - XSETINT (XCONS (elt)->cdr, beg + length); + XSETINT (XCONS (elt)->cdr, XINT (beg) + XINT (length)); return; } } - XFASTINT (lbeg) = beg; - XFASTINT (lend) = beg + length; - current_buffer->undo_list = Fcons (Fcons (lbeg, lend), current_buffer->undo_list); + lbeg = beg; + XSET (lend, Lisp_Int, XINT (beg) + XINT (length)); + current_buffer->undo_list = Fcons (Fcons (lbeg, lend), + current_buffer->undo_list); } /* Record that a deletion is about to take place, @@ -163,7 +164,7 @@ truncate_undo_list (list, minsize, maxsize) Skip, skip, skip the undo, skip to the undo bound'ry. (Get it? "Skip to my Loo?") */ if (XTYPE (next) == Lisp_Cons - && XCONS (next)->car == Qnil) + && NILP (XCONS (next)->car)) { /* Add in the space occupied by this element and its chain link. */ size_so_far += sizeof (struct Lisp_Cons); @@ -173,7 +174,7 @@ truncate_undo_list (list, minsize, maxsize) next = XCONS (next)->cdr; } while (XTYPE (next) == Lisp_Cons - && XCONS (next)->car != Qnil) + && ! NILP (XCONS (next)->car)) { Lisp_Object elt; elt = XCONS (next)->car; |