mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases 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
Show Stats 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);