diff options
| -rwxr-xr-x | tkread | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |