mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 13:40:36 -08:00
Code Issues Projects Releases Wiki Activity

(record_delete): Always use XFASTINT on sbeg.

Browse source 
(Fprimitive_undo): Add missing `else'.  Add USE_TEXT_PROPERTIES
conditional for calling Fput_text_property.  Use XINT on high, low.
This commit is contained in:
Richard M. Stallman 1993-06-12 17:04:51 +00:00
parent 43f868f524
commit d8552b2f30
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/undo.c
View file

@ -94,7 +94,7 @@ record_delete (beg, length)
XFASTINT (lend) = beg + length;
/* If point isn't at start of deleted range, record where it is. */
if (PT != sbeg)
if (PT != XFASTINT (sbeg))
current_buffer->undo_list
= Fcons (make_number (PT), current_buffer->undo_list);
@ -325,7 +325,7 @@ Return what remains of the list.")
high = Fcar (cdr);
low = Fcdr (cdr);
mod_time = (high << 16) + low;
mod_time = (XFASTINT (high) << 16) + XFASTINT (low);
/* If this records an obsolete save
(not matching the actual disk file)
then don't mark unmodified. */
@ -336,9 +336,10 @@ Return what remains of the list.")
#endif /* CLASH_DETECTION */
Fset_buffer_modified_p (Qnil);
}
if (EQ (car, Qnil))
#ifdef USE_TEXT_PROPERTIES
else if (EQ (car, Qnil))
{
/* Element (t prop val beg . end) records property change. */
/* Element (nil prop val beg . end) is property change. */
Lisp_Object beg, end, prop, val;
prop = Fcar (cdr);
@ -350,6 +351,7 @@ Return what remains of the list.")
Fput_text_property (beg, end, prop, val, Qnil);
}
#endif /* USE_TEXT_PROPERTIES */
else if (XTYPE (car) == Lisp_Int && XTYPE (cdr) == Lisp_Int)
{
/* Element (BEG . END) means range was inserted. */