undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gitk: Add keybinding to switch to parent commit

Browse Source 
Signed-off-by: Max Kirillov <max@max630.net>
Signed-off-by: Paul Mackerras <paulus@samba.org>
This commit is contained in:
Max Kirillov 2014-07-08 23:45:35 +03:00 committed by Paul Mackerras
parent bde4a0f9f3
commit d4ec30b24a
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gitk
View File

@ -2594,6 +2594,9 @@ proc makewindow {} {
bind $ctext $ctxbut {pop_diff_menu %W %X %Y %x %y} bind $ctext $ctxbut {pop_diff_menu %W %X %Y %x %y}
bind $ctext <Button-1> {focus %W} bind $ctext <Button-1> {focus %W}
bind $ctext <<Selection>> rehighlight_search_results 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 maincursor [. cget -cursor]
set textcursor [$ctext cget -cursor] set textcursor [$ctext cget -cursor]
@ -3017,6 +3020,7 @@ proc keys {} {
[mc "<Down>, n, j Move down one commit"] [mc "<Down>, n, j Move down one commit"]
[mc "<Left>, z, h Go back in history list"] [mc "<Left>, z, h Go back in history list"]
[mc "<Right>, x, l Go forward 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 "<PageUp> Move up one page in commit list"]
[mc "<PageDown> Move down one page in commit list"] [mc "<PageDown> Move down one page in commit list"]
[mc "<%s-Home> Scroll to top of commit list" $M1T] [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} { proc gettree {id} {
global treefilelist treeidlist diffids diffmergeid treepending global treefilelist treeidlist diffids diffmergeid treepending
global nullid nullid2 global nullid nullid2