]> git.pld-linux.org Git - packages/git-core.git/blob - git-core-key-bindings.patch
- fix for key bindings in SHA1 bar
[packages/git-core.git] / git-core-key-bindings.patch
1 From 2ad6d3e9325a39333be0c4b9094e9d5e756dea65 Mon Sep 17 00:00:00 2001
2 From: Kacper <kornet@tuptus>
3 Date: Thu, 9 Dec 2010 18:57:06 +0000
4 Subject: [PATCH] Preserve Entry class key bindings for SHA id
5
6 If bind is specified for key without any modifier, then any combination
7 of modifiers may be present in the event. So bind $e $ev "$escript;
8 break" breaks some useful bindings from Entry class (for example
9 Ctrl+k).
10 ---
11  gitk |   10 +++++-----
12  1 files changed, 5 insertions(+), 5 deletions(-)
13
14 diff --git gitk-git/gitk gitk-git/gitk
15 index 45e3380..0c6f3af 100755
16 --- gitk-git/gitk
17 +++ gitk-git/gitk
18 @@ -2365,6 +2365,10 @@ proc makewindow {} {
19          }
20      }
21  
22 +    foreach e $entries {
23 +        bindtags $e [linsert [bindtags $e] 2 entrybind]
24 +    }
25 +
26      bind .pwbottom <Configure> {resizecdetpanes %W %w}
27      pack .ctop -fill both -expand 1
28      bindall <1> {selcanvline %W %x %y}
29 @@ -2563,12 +2567,8 @@ proc scrollcanv {cscroll f0 f1} {
30  proc bindkey {ev script} {
31      global entries
32      bind . $ev $script
33 -    set escript [bind Entry $ev]
34 -    if {$escript == {}} {
35 -       set escript [bind Entry <Key>]
36 -    }
37      foreach e $entries {
38 -       bind $e $ev "$escript; break"
39 +       bind entrybind $ev "break"
40      }
41  }
42  
43 -- 
44 1.7.3.3
45
This page took 0.128078 seconds and 4 git commands to generate.