projects
/
git.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge git-gui 0.14.0
[git.git]
/
git-gui
/
lib
/
remote_branch_delete.tcl
diff --git
a/git-gui/lib/remote_branch_delete.tcl
b/git-gui/lib/remote_branch_delete.tcl
index f872a3d89d89bc861ea3729ec7974833bdac277f..fcc06d03a1dfc4919f762d70e2809f29dab77390 100644
(file)
--- a/
git-gui/lib/remote_branch_delete.tcl
+++ b/
git-gui/lib/remote_branch_delete.tcl
@@
-251,7
+251,7
@@
method _write_url {args} { set urltype url }
method _write_check_head {args} { set checktype head }
method _write_head_list {args} {
method _write_check_head {args} { set checktype head }
method _write_head_list {args} {
- global current_branch
+ global current_branch
_last_merged_branch
$head_m delete 0 end
foreach abr $head_list {
$head_m delete 0 end
foreach abr $head_list {
@@
-267,6
+267,13
@@
method _write_head_list {args} {
set check_head $current_branch
}
}
set check_head $current_branch
}
}
+ set lmb [lsearch -exact -sorted $head_list $_last_merged_branch]
+ if {$lmb >= 0} {
+ $w.heads.l conf -state normal
+ $w.heads.l select set $lmb
+ $w.heads.l yview $lmb
+ $w.heads.l conf -state disabled
+ }
}
method _write_urltype {args} {
}
method _write_urltype {args} {