Merge branch 'master' of git://ozlabs.org/~paulus/gitk
* 'master' of git://ozlabs.org/~paulus/gitk: gitk: Updated Bulgarian translation (302t,0f,0u) gitk: Add keybinding to switch to parent commit
This commit is contained in:
commit
67de23ddb1
@ -2594,6 +2594,9 @@ proc makewindow {} {
|
||||
bind $ctext $ctxbut {pop_diff_menu %W %X %Y %x %y}
|
||||
bind $ctext <Button-1> {focus %W}
|
||||
bind $ctext <<Selection>> rehighlight_search_results
|
||||
for {set i 1} {$i < 10} {incr i} {
|
||||
bind . <$M1B-Key-$i> [list go_to_parent $i]
|
||||
}
|
||||
|
||||
set maincursor [. cget -cursor]
|
||||
set textcursor [$ctext cget -cursor]
|
||||
@ -3017,6 +3020,7 @@ proc keys {} {
|
||||
[mc "<Down>, n, j Move down one commit"]
|
||||
[mc "<Left>, z, h Go back in history list"]
|
||||
[mc "<Right>, x, l Go forward in history list"]
|
||||
[mc "<%s-n> Go to n-th parent of current commit in history list" $M1T]
|
||||
[mc "<PageUp> Move up one page in commit list"]
|
||||
[mc "<PageDown> Move down one page in commit list"]
|
||||
[mc "<%s-Home> Scroll to top of commit list" $M1T]
|
||||
@ -7497,6 +7501,14 @@ proc goforw {} {
|
||||
}
|
||||
}
|
||||
|
||||
proc go_to_parent {i} {
|
||||
global parents curview targetid
|
||||
set ps $parents($curview,$targetid)
|
||||
if {[llength $ps] >= $i} {
|
||||
selbyid [lindex $ps [expr $i - 1]]
|
||||
}
|
||||
}
|
||||
|
||||
proc gettree {id} {
|
||||
global treefilelist treeidlist diffids diffmergeid treepending
|
||||
global nullid nullid2
|
||||
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user