X-Git-Url: https://asedeno.scripts.mit.edu/gitweb/?a=blobdiff_plain;f=lib%2Ftransport.tcl;h=3a22bd40d4df6f18204afc154cef82d5e3d52f58;hb=881d8f24cab5bf4e0fa71b17a3ab82e27b2e8ed7;hp=e8ebc6eda090faed16c80ba748d21c0c53f9f2a4;hpb=03d25622a5c0f8d0fc4030f3114974d86f20fd61;p=git.git diff --git a/lib/transport.tcl b/lib/transport.tcl index e8ebc6eda..3a22bd40d 100644 --- a/lib/transport.tcl +++ b/lib/transport.tcl @@ -74,7 +74,7 @@ trace add variable push_remote write \ [list radio_selector push_urltype remote] proc do_push_anywhere {} { - global all_heads all_remotes current_branch + global all_remotes current_branch global push_urltype push_remote push_url push_thin push_tags set w .push_setup @@ -101,7 +101,7 @@ proc do_push_anywhere {} { -width 70 \ -selectmode extended \ -yscrollcommand [list $w.source.sby set] - foreach h $all_heads { + foreach h [load_all_heads] { $w.source.l insert end $h if {$h eq $current_branch} { $w.source.l select set end