This ensures that underline does not conflict with inverse colors.
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
foreach {posbegin colbegin posend colend} $markup {
set prefix clr
foreach {posbegin colbegin posend colend} $markup {
set prefix clr
- foreach style [split $colbegin ";"] {
+ foreach style [lsort -integer [split $colbegin ";"]] {
if {$style eq "7"} {append prefix i; continue}
if {$style != 4 && ($style < 30 || $style > 47)} {continue}
set a "$mark linestart + $posbegin chars"
if {$style eq "7"} {append prefix i; continue}
if {$style != 4 && ($style < 30 || $style > 47)} {continue}
set a "$mark linestart + $posbegin chars"