diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2001-10-16 09:09:51 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2001-10-16 09:09:51 +0000 |
| commit | f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f (patch) | |
| tree | 43eb51ff0ca4af1705387403827ef210098f2da8 /src/undo.c | |
| parent | 018ba359ab456f6a43f3acea0c15df616aa0ad02 (diff) | |
| download | emacs-f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f.tar.gz emacs-f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f.tar.bz2 emacs-f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f.zip | |
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
with lisp system changes.
Diffstat (limited to 'src/undo.c')
| -rw-r--r-- | src/undo.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/undo.c b/src/undo.c index b664cf3c61f..bf10de6e502 100644 --- a/src/undo.c +++ b/src/undo.c @@ -73,7 +73,7 @@ record_insert (beg, length) && INTEGERP (XCDR (elt)) && XINT (XCDR (elt)) == beg) { - XSETINT (XCDR (elt), beg + length); + XSETCDR (elt, make_number (beg + length)); return; } } @@ -273,7 +273,7 @@ but another undo command will undo to the previous boundary.") { /* If we have preallocated the cons cell to use here, use that one. */ - XCDR (pending_boundary) = current_buffer->undo_list; + XSETCDR (pending_boundary, current_buffer->undo_list); current_buffer->undo_list = pending_boundary; pending_boundary = Qnil; } @@ -378,7 +378,7 @@ truncate_undo_list (list, minsize, maxsize) /* Truncate at the boundary where we decided to truncate. */ if (!NILP (last_boundary)) { - XCDR (last_boundary) = Qnil; + XSETCDR (last_boundary, Qnil); return list; } else |