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