blob: 5f44aab28f4ab273aa05287f7a1dfb76d69a567a (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
--- tcl/tabhist.tcl.orig Thu Aug 31 12:12:32 2000
+++ tcl/tabhist.tcl Thu Aug 31 12:13:10 2000
@@ -72,7 +72,7 @@
regsub -all . $searchNick {\\&} matchStr
foreach nick $TabHist_list {
- if {[regexp -nocase "^$matchStr$" $nick]} {
+ if {[string compare -nocase $matchStr $nick]} {
DEBUG:Output tabhist 6 "TabHist:Search: returning $index"
return $index
}
|