sawfish r4397 - in trunk: . lisp/sawfish/wm

[chrisb svn gnome org]

Author: chrisb
Date: Thu Feb  5 08:14:01 2009
New Revision: 4397
URL: http://svn.gnome.org/viewvc/sawfish?rev=4397&view=rev

Log:
move tab-raising bindings from global to window keymap


Modified:
   trunk/ChangeLog
   trunk/KEYBINDINGS
   trunk/lisp/sawfish/wm/keymaps.jl

Modified: trunk/KEYBINDINGS
==============================================================================
--- trunk/KEYBINDINGS	(original)
+++ trunk/KEYBINDINGS	Thu Feb  5 08:14:01 2009
@@ -40,8 +40,6 @@
 W-Left -> Previous Workspace
 W-Right -> Next Workspace
 W-Tab -> Cycle Windows
-W-ISO_Left_Tab -> tab-raise-left-window
-H-ISO_Left_Tab -> tab-raise-right-window
 
 window-keymap (Those bindings take place when the pointer is inside a window, but not on the titlebar)
 
@@ -50,6 +48,8 @@
 W-Button3-Click1 -> Raise Or Lower Window
 W-Button1-Move -> Move Window Interactively
 Button1-Click1 -> Raise And Pass Trough Click (Raise And Focus) Window
+W-ISO_Left_Tab -> tab-raise-left-window
+H-ISO_Left_Tab -> tab-raise-right-window
 
 root-window-keymap (Those bindings take place on the root window ("The desktop background"))
 

Modified: trunk/lisp/sawfish/wm/keymaps.jl
==============================================================================
--- trunk/lisp/sawfish/wm/keymaps.jl	(original)
+++ trunk/lisp/sawfish/wm/keymaps.jl	Thu Feb  5 08:14:01 2009
@@ -87,9 +87,7 @@
   (defcustom global-keymap (bind-keys (make-keymap)
 			     "W-Left" 'previous-workspace
 			     "W-Right" 'next-workspace
-			     "W-Tab" 'cycle-windows
-			     "W-ISO_Left_Tab" 'tab-raise-left-window
-			     "H-ISO_Left_Tab" 'tab-raise-right-window)
+			     "W-Tab" 'cycle-windows)
     (_"Keymap containing bindings active anywhere.")
     :group bindings
     :type keymap
@@ -102,7 +100,9 @@
 			     "W-Button3-Click1" 'raise-lower-window
 			     "W-Button2-Click1" 'popup-window-menu
 			     "W-Button1-Move" 'move-window-interactively
-			     "Button1-Click1" 'raise-and-pass-through-click)
+			     "Button1-Click1" 'raise-and-pass-through-click
+			     "W-ISO_Left_Tab" 'tab-raise-left-window 
+			     "H-ISO_Left_Tab" 'tab-raise-right-window)
     (_"Keymap containing bindings active when a client window is focused.")
     :group bindings
     :type keymap