+proc highlight_tag {f} {
+ global highlight_paths
+
+ foreach p $highlight_paths {
+ if {[string match $p $f]} {
+ return "bold"
+ }
+ }
+ return {}
+}
+
+proc highlight_filelist {} {
+ global flistmode cflist
+
+ global highlight_paths
+ if {$flistmode eq "flat"} {
+ $cflist conf -state normal
+ set end [lindex [split [$cflist index end] .] 0]
+ for {set l 2} {$l < $end} {incr l} {
+ set line [$cflist get $l.0 "$l.0 lineend"]
+ if {[highlight_tag $line] ne {}} {
+ $cflist tag add bold $l.0 "$l.0 lineend"
+ }
+ }
+ $cflist conf -state disabled
+ }
+}
+
+proc unhighlight_filelist {} {
+ global flistmode cflist
+
+ if {$flistmode eq "flat"} {
+ $cflist conf -state normal
+ $cflist tag remove bold 1.0 end
+ $cflist conf -state disabled
+ }
+}
+