1 files changed, 2 insertions, 0 deletions
diff --git a/library/text.tcl b/library/text.tcl
index 080b133..f973984 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -246,6 +246,8 @@ bind Text <Control-slash> {
 }
 bind Text <Control-backslash> {
     %W tag remove sel 1.0 end
+    # An operation that clears the selection must insert an autoseparator,
+    # because the selection operation may have moved the insert mark
     if {[%W cget -autoseparators]} {
 	%W edit separator
     }