diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-10-04 12:28:40 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-10-04 12:28:40 +0000 |
| commit | 552bdbcf7114b65201f8a6c169837dcfb255f892 (patch) | |
| tree | dba0a297d7c2c33a0d8738406bcafc1156b6a2ce /src/undo.c | |
| parent | c8a4fc3d27dcf7022b77e8e974e14e44edb7db79 (diff) | |
| download | emacs-552bdbcf7114b65201f8a6c169837dcfb255f892.tar.gz | |
(record_insert, record_delete, record_first_change, record_property_change):
Use new accessor macros instead of calling XSET directly.
Diffstat (limited to 'src/undo.c')
| -rw-r--r-- | src/undo.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/undo.c b/src/undo.c index abd5adbd30c..be6d5062422 100644 --- a/src/undo.c +++ b/src/undo.c @@ -55,7 +55,7 @@ record_insert (beg, length) 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 @@ record_insert (beg, length) } 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 @@ record_delete (beg, length) 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_delete (beg, length) 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 @@ record_first_change () 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 @@ record_property_change (beg, length, prop, value, buffer) 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); |