gitk: Fix Tcl error: can't unset findcurline
The logic in stopfinding assumes that findcurline will be set if
find_dirn is, but findnext and findprev can set find_dirn without
setting findcurline. This makes sure we only set find_dirn in those
places if findcurline is already set.
Signed-off-by: Paul Mackerras <paulus@samba.org>
diff --git a/gitk b/gitk
index 290deff..3b3cc4b 100755
--- a/gitk
+++ b/gitk
@@ -4279,7 +4279,6 @@
global findcurline find_dirn
if {[info exists find_dirn]} return
- set find_dirn 1
if {![info exists findcurline]} {
if {$restart} {
dofind
@@ -4287,6 +4286,7 @@
bell
}
} else {
+ set find_dirn 1
run findmore
nowbusy finding
}
@@ -4296,10 +4296,10 @@
global findcurline find_dirn
if {[info exists find_dirn]} return
- set find_dirn -1
if {![info exists findcurline]} {
dofind 1
} else {
+ set find_dirn -1
run findmorerev
nowbusy finding
}
