summaryrefslogtreecommitdiffstats
path: root/library/text.tcl
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-10-04 08:32:33 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-10-04 08:32:33 (GMT)
commit520dc94723941cbb70de8f216cb8dce3868bfa59 (patch)
treed67485577de80a784c77416adfb94ba92e938990 /library/text.tcl
parent1ece15d3c02b97432d14fd339122e8302cc1a483 (diff)
downloadtk-520dc94723941cbb70de8f216cb8dce3868bfa59.zip
tk-520dc94723941cbb70de8f216cb8dce3868bfa59.tar.gz
tk-520dc94723941cbb70de8f216cb8dce3868bfa59.tar.bz2
Added forgotten comment for case (iv)
Diffstat (limited to 'library/text.tcl')
-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
}