Mercurial > emacs
changeset 2194:886a69457557
(record_property_change, record_delete, record_insert):
Don't make boundary or touch last_undo_buffer if cur buf has no undo.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 15 Mar 1993 06:03:33 +0000 |
| parents | 652b38173a63 |
| children | b20bb441f47f |
| files | src/undo.c |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/undo.c Mon Mar 15 06:02:29 1993 +0000 +++ b/src/undo.c Mon Mar 15 06:03:33 1993 +0000 @@ -36,12 +36,13 @@ { 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 @@ { 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 @@ 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);