summaryrefslogtreecommitdiff
path: root/gitk
diff options
context:
space:
mode:
authorRobert Suetterlin <robert@mpe.mpg.de>2005-09-22 10:07:36 +1000
committerPaul Mackerras <paulus@samba.org>2005-09-22 10:07:36 +1000
commit6e2dda35c2f012298f4f4759db2d651ef18e39a0 (patch)
treeddb95a9fc10537353036b7bf971b85ac34060871 /gitk
parent9843c3074dfbf57117565f6b7c93e3e6812857ee (diff)
downloadgit-6e2dda35c2f012298f4f4759db2d651ef18e39a0.tar.gz
[PATCH] Add new keybindings
This adds several new keybindings to allow history and selectline navigation. I basically added Opera-like history traversal, as well as left-right-cursor history traversal and vi-like motion commands. Signed-off-by: Robert Suetterlin <robert@mpe.mpg.de> Signed-off-by: Paul Mackerras <paulus@samba.org>
Diffstat (limited to 'gitk')
-rwxr-xr-xgitk10
1 files changed, 9 insertions, 1 deletions
diff --git a/gitk b/gitk
index df86dceba0..bd10f7dcf0 100755
--- a/gitk
+++ b/gitk
@@ -1,6 +1,6 @@
#!/bin/sh
# Tcl ignores the next line -*- tcl -*- \
-exec wish "$0" -- "${1+$@}"
+exec wish8.4 "$0" -- "${1+$@}"
# Copyright (C) 2005 Paul Mackerras. All rights reserved.
# This program is free software; it may be used, copied, modified
@@ -486,6 +486,8 @@ proc makewindow {} {
bindall <B2-Motion> "allcanvs scan dragto 0 %y"
bind . <Key-Up> "selnextline -1"
bind . <Key-Down> "selnextline 1"
+ bind . <Key-Right> "goforw"
+ bind . <Key-Left> "goback"
bind . <Key-Prior> "allcanvs yview scroll -1 pages"
bind . <Key-Next> "allcanvs yview scroll 1 pages"
bindkey <Key-Delete> "$ctext yview scroll -1 pages"
@@ -493,6 +495,12 @@ proc makewindow {} {
bindkey <Key-space> "$ctext yview scroll 1 pages"
bindkey p "selnextline -1"
bindkey n "selnextline 1"
+ bindkey z "goback"
+ bindkey x "goforw"
+ bindkey i "selnextline -1"
+ bindkey k "selnextline 1"
+ bindkey j "goback"
+ bindkey l "goforw"
bindkey b "$ctext yview scroll -1 pages"
bindkey d "$ctext yview scroll 18 units"
bindkey u "$ctext yview scroll -18 units"