gitk: Remove the unused stopfindproc function
This was a hangover from before the "Files" and "Pickaxe" parts of
the Find function were moved to the highlight facility in commit
60f7a7dc49
. It serves no useful
purpose any more, so this removes it.
Signed-off-by: Paul Mackerras <paulus@samba.org>
maint
parent
69c0b5d240
commit
d36d385efd
19
gitk
19
gitk
|
@ -1786,7 +1786,6 @@ proc showview {n} {
|
||||||
}
|
}
|
||||||
unselectline
|
unselectline
|
||||||
normalline
|
normalline
|
||||||
stopfindproc
|
|
||||||
if {$curview >= 0} {
|
if {$curview >= 0} {
|
||||||
set vparentlist($curview) $parentlist
|
set vparentlist($curview) $parentlist
|
||||||
set vdisporder($curview) $displayorder
|
set vdisporder($curview) $displayorder
|
||||||
|
@ -3939,7 +3938,6 @@ proc findmatches {f} {
|
||||||
proc dofind {{rev 0}} {
|
proc dofind {{rev 0}} {
|
||||||
global findstring findstartline findcurline selectedline numcommits
|
global findstring findstartline findcurline selectedline numcommits
|
||||||
|
|
||||||
stopfindproc
|
|
||||||
unmarkmatches
|
unmarkmatches
|
||||||
cancel_next_highlight
|
cancel_next_highlight
|
||||||
focus .
|
focus .
|
||||||
|
@ -4093,23 +4091,6 @@ proc findselectline {l} {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
proc stopfindproc {{done 0}} {
|
|
||||||
global findprocpid findprocfile findids
|
|
||||||
global ctext findoldcursor phase maincursor textcursor
|
|
||||||
global findinprogress
|
|
||||||
|
|
||||||
catch {unset findids}
|
|
||||||
if {[info exists findprocpid]} {
|
|
||||||
if {!$done} {
|
|
||||||
catch {exec kill $findprocpid}
|
|
||||||
}
|
|
||||||
catch {close $findprocfile}
|
|
||||||
unset findprocpid
|
|
||||||
}
|
|
||||||
catch {unset findinprogress}
|
|
||||||
notbusy find
|
|
||||||
}
|
|
||||||
|
|
||||||
# mark the bits of a headline or author that match a find string
|
# mark the bits of a headline or author that match a find string
|
||||||
proc markmatches {canv l str tag matches font} {
|
proc markmatches {canv l str tag matches font} {
|
||||||
set bbox [$canv bbox $tag]
|
set bbox [$canv bbox $tag]
|
||||||
|
|
Loading…
Reference in New Issue