mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 09:51:22 -08:00
Code Issues Projects Releases Wiki Activity

(record_insert, record_delete, record_first_change, record_property_change):

Browse source 
Use new accessor macros instead of calling XSET directly.
This commit is contained in:
Karl Heuer 1994-10-04 12:28:40 +00:00
parent c8a4fc3d27
commit 552bdbcf71
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/undo.c
View file

@ -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);