From d663260fd331d9aae4b9a5fe669f1d1d12e4cbc2 Mon Sep 17 00:00:00 2001 From: Nick White Date: Sat, 22 Feb 2014 17:23:25 +0000 Subject: Fix underline matching properly --- tkread | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tkread b/tkread index 60fcbf4..4a712b8 100755 --- a/tkread +++ b/tkread @@ -45,8 +45,8 @@ set surroundfmt { \ } set underlinefmt { \ - {"==" "6" ""} \ - {"--" "3" "italic"} \ + {"=" "6" ""} \ + {"-" "3" "italic"} \ } if { $::argc > 0 && [lindex $::argv 0] == "-h" } { @@ -161,14 +161,14 @@ proc markup {widget} { set fmtsizemod [lindex $fmt 1] set fmtstring [lindex $fmt 2] - set cur [$widget search -regexp "^$searchchar" 0.0 end] + set cur [$widget search -regexp "^$searchchar$searchchar*\$" 0.0 end] while {$cur != ""} { set dotindex [string first . $cur] set linenum [string range $cur 0 [expr $dotindex - 1]] $widget tag add underline_$underlinenum [expr $linenum - 1].0 $linenum.end $widget delete $linenum.0 [expr $linenum + 1].0 - set cur [$widget search -regexp "^$searchchar" [expr $linenum + 1].0 end] + set cur [$widget search -regexp "^$searchchar$searchchar*\$" [expr $linenum + 1].0 end] } $widget tag configure underline_$underlinenum -font "{$fontfamily} [expr $fontsize + $fmtsizemod] $fmtstring" incr underlinenum -- cgit v1.2.3