Browse Source

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
Paul Mackerras 18 years ago
parent
commit
d36d385efd
  1. 19
      gitk

19
gitk

@ -1786,7 +1786,6 @@ proc showview {n} { @@ -1786,7 +1786,6 @@ proc showview {n} {
}
unselectline
normalline
stopfindproc
if {$curview >= 0} {
set vparentlist($curview) $parentlist
set vdisporder($curview) $displayorder
@ -3939,7 +3938,6 @@ proc findmatches {f} { @@ -3939,7 +3938,6 @@ proc findmatches {f} {
proc dofind {{rev 0}} {
global findstring findstartline findcurline selectedline numcommits

stopfindproc
unmarkmatches
cancel_next_highlight
focus .
@ -4093,23 +4091,6 @@ proc findselectline {l} { @@ -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
proc markmatches {canv l str tag matches font} {
set bbox [$canv bbox $tag]

Loading…
Cancel
Save