Mercurial > emacs
changeset 9281:05b2bd5d5559
(record_insert, record_delete, record_first_change, record_property_change):
Use new accessor macros instead of calling XSET directly.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 04 Oct 1994 12:28:40 +0000 |
| parents | 4b238c43e59f |
| children | f4fa46f6a032 |
| files | src/undo.c |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/undo.c Tue Oct 04 12:27:29 1994 +0000 +++ b/src/undo.c Tue Oct 04 12:28:40 1994 +0000 @@ -55,7 +55,7 @@ if (current_buffer != XBUFFER (last_undo_buffer)) Fundo_boundary (); - XSET (last_undo_buffer, Lisp_Buffer, current_buffer); + XSETBUFFER (last_undo_buffer, current_buffer); if (MODIFF <= current_buffer->save_modified) record_first_change (); @@ -77,7 +77,7 @@ } lbeg = beg; - XSET (lend, Lisp_Int, XINT (beg) + XINT (length)); + XSETINT (lend, XINT (beg) + XINT (length)); current_buffer->undo_list = Fcons (Fcons (lbeg, lend), current_buffer->undo_list); } @@ -100,7 +100,7 @@ if (current_buffer != XBUFFER (last_undo_buffer)) Fundo_boundary (); - XSET (last_undo_buffer, Lisp_Buffer, current_buffer); + XSETBUFFER (last_undo_buffer, current_buffer); at_boundary = (CONSP (current_buffer->undo_list) && NILP (XCONS (current_buffer->undo_list)->car)); @@ -109,7 +109,7 @@ record_first_change (); if (point == beg + length) - XSET (sbeg, Lisp_Int, -beg); + XSETINT (sbeg, -beg); else XFASTINT (sbeg) = beg; XFASTINT (lbeg) = beg; @@ -152,7 +152,7 @@ if (current_buffer != XBUFFER (last_undo_buffer)) Fundo_boundary (); - XSET (last_undo_buffer, Lisp_Buffer, current_buffer); + XSETBUFFER (last_undo_buffer, current_buffer); XFASTINT (high) = (current_buffer->modtime >> 16) & 0xffff; XFASTINT (low) = current_buffer->modtime & 0xffff; @@ -190,8 +190,8 @@ if (MODIFF <= current_buffer->save_modified) record_first_change (); - XSET (lbeg, Lisp_Int, beg); - XSET (lend, Lisp_Int, beg + length); + XSETINT (lbeg, beg); + XSETINT (lend, beg + length); entry = Fcons (Qnil, Fcons (prop, Fcons (value, Fcons (lbeg, lend)))); current_buffer->undo_list = Fcons (entry, current_buffer->undo_list);