Fix [ab839efc5f]: text edit undo: clearing text instead of restoring.

1 files changed, 8 insertions, 0 deletions

diff --git a/generic/tkText.c b/generic/tkText.c
index e56e83c..013874b 100644
--- a/generic/tkText.c
+++ b/generic/tkText.c
@@ -5059,6 +5059,10 @@ TextEditUndo(
 	return TCL_OK;
     }
 
+    if (textPtr->sharedTextPtr->autoSeparators) {
+	TkUndoInsertUndoSeparator(textPtr->sharedTextPtr->undoStack);
+    }
+
     /*
      * Turn off the undo feature while we revert a compound action, setting
      * the dirty handling mode to undo for the duration (unless it is
@@ -5077,6 +5081,10 @@ TextEditUndo(
     }
     textPtr->sharedTextPtr->undo = 1;
 
+    if (textPtr->sharedTextPtr->autoSeparators) {
+	TkUndoInsertUndoSeparator(textPtr->sharedTextPtr->undoStack);
+    }
+
     return status;
 }