diff options
author | Stephen Rothwell <sfr@canb.auug.org.au> | 2006-03-30 16:13:12 +1100 |
---|---|---|
committer | Paul Mackerras <paulus@samba.org> | 2006-04-05 09:14:02 +1000 |
commit | e100712968cb781183a549f164e34596d6e7fcb2 (patch) | |
tree | 9f347ec8235a7e29f346e5778e90e33c1c91b77c /gitk | |
parent | gitk: replace parent and children arrays with lists (diff) | |
download | tgif-e100712968cb781183a549f164e34596d6e7fcb2.tar.xz |
[PATCH] gitk: allow goto heads
This patch allows you to enter a head name in the SHA1 id: field.
It also removes some unnecessary global declarations.
Signed-off-by: Stephen Rothwell <sfr@canb.auug.org.au>
Signed-off-by: Paul Mackerras <paulus@samba.org>
Diffstat (limited to 'gitk')
-rwxr-xr-x | gitk | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -2847,13 +2847,15 @@ proc sha1change {n1 n2 op} { } proc gotocommit {} { - global sha1string currentid commitrow tagids + global sha1string currentid commitrow tagids headids global displayorder numcommits if {$sha1string == {} || ([info exists currentid] && $sha1string == $currentid)} return if {[info exists tagids($sha1string)]} { set id $tagids($sha1string) + } elseif {[info exists headids($sha1string)]} { + set id $headids($sha1string) } else { set id [string tolower $sha1string] if {[regexp {^[0-9a-f]{4,39}$} $id]} { @@ -2879,7 +2881,7 @@ proc gotocommit {} { if {[regexp {^[0-9a-fA-F]{4,}$} $sha1string]} { set type "SHA1 id" } else { - set type "Tag" + set type "Tag/Head" } error_popup "$type $sha1string is not known" } @@ -3370,7 +3372,6 @@ proc listrefs {id} { proc rereadrefs {} { global idtags idheads idotherrefs - global tagids headids otherrefids set refids [concat [array names idtags] \ [array names idheads] [array names idotherrefs]] |