1 files changed, 2 insertions, 0 deletions
diff --git a/library/text.tcl b/library/text.tcl
index 4a0e2c7..080b133 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -85,6 +85,8 @@ bind Text <ButtonRelease-1> {
 }
 bind Text <Control-1> {
     %W mark set insert @%x,%y
+    # An operation that moves the insert mark without making it
+    # one end of the selection must insert an autoseparator
     if {[%W cget -autoseparators]} {
 	%W edit separator
     }