Evaluated eval [wget https://dpaste.com/HXY65MWT5.txt]
This commit is contained in:
parent
04d6625683
commit
250a01b24c
@ -6,9 +6,11 @@
|
||||
set u 0
|
||||
set cf -1
|
||||
set cb -1
|
||||
set r [lindex $c 0]
|
||||
set r ""
|
||||
foreach f [lindex $c 1] {
|
||||
lappend debug "working on $f";
|
||||
append r [lindex [lindex $c 0] $f];
|
||||
lappend debug "actually appended the character to be formatted: $r";
|
||||
if {[lindex $f 0] > $n} {
|
||||
lappend debug "reached end of string"
|
||||
if {$b eq 1} {append r "\002"; lappend debug "ending bold";}
|
||||
|
Loading…
x
Reference in New Issue
Block a user