Merge 8.6

1 files changed, 15 insertions, 1 deletions

diff --git a/tests/text.test b/tests/text.test
index 5f574c0..2303729 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -7039,7 +7039,21 @@ test text-27.28 {edit undo and edit redo do not leave \
 } -cleanup {
     destroy .t
 } -result {1 1}
-
+test text-27.29 {bug ab839efc5f - .text edit undo inserts separators} -setup {
+    destroy .t
+} -body {
+    text .t -undo 1
+    .t insert 1.0 "1. 123 5 789012  LINE-1\n2.\n3. 123 5 789012  LINE-3\n"
+    .t tag add sel 3.0 3.end
+    .t delete sel.first sel.last
+    .t edit undo
+    .t tag add sel 3.0 3.end
+    .t delete sel.first sel.last
+    .t edit undo
+    .t get 3.0 3.end
+} -cleanup {
+    destroy .t
+} -result {3. 123 5 789012  LINE-3}
 
 test text-28.1 {bug fix - 624372, ControlUtfProc long lines} -body {
     pack [text .t -wrap none]