diff options
Diffstat (limited to 'third_party/git/git-gui/lib/branch.tcl')
| -rw-r--r-- | third_party/git/git-gui/lib/branch.tcl | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/third_party/git/git-gui/lib/branch.tcl b/third_party/git/git-gui/lib/branch.tcl deleted file mode 100644 index 8b0c4858890f..000000000000 --- a/third_party/git/git-gui/lib/branch.tcl +++ /dev/null @@ -1,40 +0,0 @@ -# git-gui branch (create/delete) support -# Copyright (C) 2006, 2007 Shawn Pearce - -proc load_all_heads {} { - global some_heads_tracking - - set rh refs/heads - set rh_len [expr {[string length $rh] + 1}] - set all_heads [list] - set fd [git_read for-each-ref --format=%(refname) $rh] - fconfigure $fd -translation binary -encoding utf-8 - while {[gets $fd line] > 0} { - if {!$some_heads_tracking || ![is_tracking_branch $line]} { - lappend all_heads [string range $line $rh_len end] - } - } - close $fd - - return [lsort $all_heads] -} - -proc load_all_tags {} { - set all_tags [list] - set fd [git_read for-each-ref \ - --sort=-taggerdate \ - --format=%(refname) \ - refs/tags] - fconfigure $fd -translation binary -encoding utf-8 - while {[gets $fd line] > 0} { - if {![regsub ^refs/tags/ $line {} name]} continue - lappend all_tags $name - } - close $fd - return $all_tags -} - -proc radio_selector {varname value args} { - upvar #0 $varname var - set var $value -} |