summaryrefslogtreecommitdiff
path: root/gitk
diff options
context:
space:
mode:
authorJunio C Hamano <junkio@cox.net>2006-06-11 16:50:47 (GMT)
committerPaul Mackerras <paulus@samba.org>2006-06-11 23:37:44 (GMT)
commit2e1ded44f709ddc95c5e8a87e0d98127979115fe (patch)
tree06f64d6f5dd43a11a76edbdb965880f2f30134ad /gitk
parent2d71bcccc81e3569d97dd1314c3ca0f080f4a70f (diff)
downloadgit-2e1ded44f709ddc95c5e8a87e0d98127979115fe.zip
git-2e1ded44f709ddc95c5e8a87e0d98127979115fe.tar.gz
git-2e1ded44f709ddc95c5e8a87e0d98127979115fe.tar.bz2
[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>
Diffstat (limited to 'gitk')
-rwxr-xr-xgitk18
1 files changed, 18 insertions, 0 deletions
diff --git a/gitk b/gitk
index 9be10a4..ba4644f 100755
--- a/gitk
+++ b/gitk
@@ -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