[PATCH] gitk: add some key-bind
From: OGAWA Hirofumi <hirofumi@mail.parknet.co.jp>
Date: 2016-06-15 22:42:41
This add initial user of prevfile(), and additional some key-binds for emacs users. Signed-off-by: OGAWA Hirofumi <hirofumi@mail.parknet.co.jp> --- gitk | 6 ++++++ 1 file changed, 6 insertions(+) diff -puN gitk~gitk-key-emacs gitk
--- git/gitk~gitk-key-emacs 2006-09-27 00:17:31.000000000 +0900
+++ git-hirofumi/gitk 2006-09-27 00:17:31.000000000 +0900@@ -672,6 +672,10 @@ proc makewindow {} { bind . <Control-Key-Down> "allcanvs yview scroll 1 units" bind . <Control-Key-Prior> "allcanvs yview scroll -1 pages" bind . <Control-Key-Next> "allcanvs yview scroll 1 pages" + bind . <Control-p> "$ctext yview scroll -1 units" + bind . <Control-n> "$ctext yview scroll 1 units" + bind . <Alt-v> "$ctext yview scroll -1 pages" + bind . <Control-v> "$ctext yview scroll 1 pages" bindkey <Key-Delete> "$ctext yview scroll -1 pages" bindkey <Key-BackSpace> "$ctext yview scroll -1 pages" bindkey <Key-space> "$ctext yview scroll 1 pages"
@@ -690,6 +694,8 @@ proc makewindow {} { bindkey <Key-Return> {findnext 0} bindkey ? findprev bindkey f nextfile + bindkey P prevfile + bindkey N nextfile bind . <Control-q> doquit bind . <Control-f> dofind bind . <Control-g> {findnext 0}
_