[PATCH] gitk: add some key-bind
- From
- OGAWA Hirofumi <hirofumi@mail.parknet.co.jp>
- Date
- Sep 26, 2006, 15:27 UTC
- Message-ID
- <87y7s61wdx.fsf_-_@duaron.myhome.or.jp>
- In-Reply-To
- <873bae3b5x.fsf_-_@duaron.myhome.or.jp>
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} _