summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--library/text.tcl2
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
}