X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=gitk;h=ba4644f450215682d7465ada26878d626f72fa00;hb=ae448e3854d8b6e7e37aa88fa3917f5dd97f3210;hp=9be10a43e603fcda952fde03254076f17275ed05;hpb=0a8f4f0020cb35095005852c0797f0b90e9ebb74;p=git.git

diff --git a/gitk b/gitk
index 9be10a43..ba4644f4 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