12 lines
292 B
Plaintext
12 lines
292 B
Plaintext
$NetBSD: patch-ac,v 1.1.1.1 2000/12/15 00:36:36 wiz Exp $
|
|
|
|
--- tcl/util.tcl.orig Mon Jun 1 14:53:11 1998
|
|
+++ tcl/util.tcl Thu Oct 19 23:43:11 2000
|
|
@@ -73,5 +73,5 @@
|
|
incr index -1
|
|
|
|
- if {$index == 0} {
|
|
+ if {$index == $start} {
|
|
set index [expr $start + $maxLength]
|
|
break
|