From 50b66f6d5a27773680916fe72ebfe0c6b5c90cf6 Mon Sep 17 00:00:00 2001 From: Nick White Date: Thu, 17 Apr 2014 16:16:19 -0400 Subject: Improve list processing --- tkread | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tkread b/tkread index f4c6039..bf03f50 100755 --- a/tkread +++ b/tkread @@ -269,7 +269,7 @@ proc markup {widget} { set dotindex [string first . $cur] set linenum [string range $cur 0 [expr $dotindex - 1]] $widget replace $linenum.0 $linenum.$len "• " - set cur [$widget search -regexp "^$item" 0.0 end] + set cur [$widget search -regexp "^$item" $cur end] } } } -- cgit v1.2.3