summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-09-27 10:08:02 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-09-27 10:08:02 (GMT)
commit94ca8fddecf8a8e3b0e446e9d71eaf77bda8f1e6 (patch)
tree0d9541fd8369d4716b0cc2beb3deefdf7a0f24b0 /library
parent1119e63470fa87743572b452320e7d583e5faf19 (diff)
parent8480a73fc23b0812d1681db23c634c3555e8d263 (diff)
downloadtk-94ca8fddecf8a8e3b0e446e9d71eaf77bda8f1e6.zip
tk-94ca8fddecf8a8e3b0e446e9d71eaf77bda8f1e6.tar.gz
tk-94ca8fddecf8a8e3b0e446e9d71eaf77bda8f1e6.tar.bz2
Fix [720879afe9] - WM_CHAR message handling. Patch from Christian Werner backported from http://www.androwish.org/index.html/info/a0da5845594cec28
Diffstat (limited to 'library')
-rw-r--r--library/text.tcl8
1 files changed, 4 insertions, 4 deletions
diff --git a/library/text.tcl b/library/text.tcl
index 02a8939..59e395c 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -1261,17 +1261,17 @@ proc ::tk::TextUndoRedoProcessMarks {w} {
set il1 [lindex $ind $i]
set ir1 [lindex $ind [expr {$i + 1}]]
lappend indices $il1 $ir1
-
+
for {set j [expr {$i + 2}]} {$j < $nUndoMarks} {incr j 2} {
set il2 [lindex $ind $j]
set ir2 [lindex $ind [expr {$j + 1}]]
-
+
if {[$w compare $il2 > $ir1]} {
# second range starts after the end of first range
# -> further second ranges do not need to be considered
# because ranges were sorted by increasing first index
set j $nUndoMarks
-
+
} else {
if {[$w compare $ir2 > $ir1]} {
# second range overlaps first range
@@ -1289,7 +1289,7 @@ proc ::tk::TextUndoRedoProcessMarks {w} {
set ind [lreplace $ind $j [expr {$j + 1}]]
incr j -2
incr nUndoMarks -2
-
+
}
}