mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(record_property_change, record_delete, record_insert):

Browse source 
Don't make boundary or touch last_undo_buffer if cur buf has no undo.
This commit is contained in:
Richard M. Stallman 1993-03-15 06:03:33 +00:00
parent cdaa87fd06
commit bdbe6f2856
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/undo.c
View file

@ -36,12 +36,13 @@ record_insert (beg, length)
{
Lisp_Object lbeg, lend;
if (EQ (current_buffer->undo_list, Qt))
return;
if (current_buffer != XBUFFER (last_undo_buffer))
Fundo_boundary ();
XSET (last_undo_buffer, Lisp_Buffer, current_buffer);
if (EQ (current_buffer->undo_list, Qt))
return;
if (MODIFF <= current_buffer->save_modified)
record_first_change ();
@ -75,12 +76,13 @@ record_delete (beg, length)
{
Lisp_Object lbeg, lend, sbeg;
if (EQ (current_buffer->undo_list, Qt))
return;
if (current_buffer != XBUFFER (last_undo_buffer))
Fundo_boundary ();
XSET (last_undo_buffer, Lisp_Buffer, current_buffer);
if (EQ (current_buffer->undo_list, Qt))
return;
if (MODIFF <= current_buffer->save_modified)
record_first_change ();
@ -135,13 +137,13 @@ record_property_change (beg, length, prop, value, buffer)
struct buffer *obuf = current_buffer;
int boundary = 0;
if (EQ (current_buffer->undo_list, Qt))
return;
if (!EQ (buffer, last_undo_buffer))
boundary = 1;
last_undo_buffer = buffer;
if (EQ (current_buffer->undo_list, Qt))
return;
/* Switch temporarily to the buffer that was changed. */
current_buffer = XBUFFER (buffer);