diff options
author | Junio C Hamano <junkio@cox.net> | 2006-06-11 20:50:47 +0400 |
---|---|---|
committer | Paul Mackerras <paulus@samba.org> | 2006-06-12 03:37:44 +0400 |
commit | 2e1ded44f709ddc95c5e8a87e0d98127979115fe (patch) | |
tree | 06f64d6f5dd43a11a76edbdb965880f2f30134ad | |
parent | 2d71bcccc81e3569d97dd1314c3ca0f080f4a70f (diff) |
[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>
-rwxr-xr-x | gitk | 18 |
1 files changed, 18 insertions, 0 deletions
@@ -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 |