Browse Source

[PATCH] gitk: rereadrefs needs listrefs

The listrefs procedure was inadvertently removed during the course of
development, but there is still a user of it, so resurrect it.

Signed-off-by: Junio C Hamano <junkio@cox.net>
Signed-off-by: Paul Mackerras <paulus@samba.org>
maint
Junio C Hamano 19 years ago committed by Paul Mackerras
parent
commit
2e1ded44f7
  1. 18
      gitk

18
gitk

@ -5196,6 +5196,24 @@ proc rereadrefs {} { @@ -5196,6 +5196,24 @@ proc rereadrefs {} {
}
}

proc listrefs {id} {
global idtags idheads idotherrefs

set x {}
if {[info exists idtags($id)]} {
set x $idtags($id)
}
set y {}
if {[info exists idheads($id)]} {
set y $idheads($id)
}
set z {}
if {[info exists idotherrefs($id)]} {
set z $idotherrefs($id)
}
return [list $x $y $z]
}

proc showtag {tag isnew} {
global ctext tagcontents tagids linknum


Loading…
Cancel
Save