mirror/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-11-18 04:14:01 +01:00
Code

gitk: Fix Tcl error: can't unset findcurline

Browse Source 
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>
This commit is contained in:
Paul Mackerras 2007-10-19 19:09:43 +10:00
parent 8d73b242a5
commit eb33a67f21
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gitk
View File

@ -4279,7 +4279,6 @@ proc findnext {restart} {
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 @@ proc findnext {restart} {
bell
}
} else {
set find_dirn 1
run findmore
nowbusy finding
}
@ -4296,10 +4296,10 @@ proc findprev {} {
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
}