From 520dc94723941cbb70de8f216cb8dce3868bfa59 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sun, 4 Oct 2015 08:32:33 +0000
Subject: Added forgotten comment for case (iv)

---
 library/text.tcl | 2 ++
 1 file changed, 2 insertions(+)

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
     }
-- 
cgit v0.12