[sawfish] removed maybe-raise-tab and tab-raise-on-hover

[Christopher Bratusek <chrisb src gnome org>]

commit 99bbbc9e2238a067b05f0313ba14f6e27bd41617
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Tue Feb 22 20:27:56 2011 +0100

    removed maybe-raise-tab and tab-raise-on-hover

 ChangeLog                        |    8 ++++++++
 KEYBINDINGS                      |    1 -
 lisp/sawfish/wm/keymaps.jl       |    1 -
 lisp/sawfish/wm/tabs/tabgroup.jl |   20 +++-----------------
 4 files changed, 11 insertions(+), 19 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 95d859e..9efed86 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2011-02-22  Christopher Roy Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/keymaps.jl
+	* lisp/sawfish/wm/tabs/tabgroup.jl: remove tab-raise-on-hover and
+	maybe-raise-tab. Instead make, what was tab-raise-on-hover the
+	predefined behaviour.
+
+	* KEYBINDINGS: small update
+
 2011-02-21  Christopher Roy Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/tabs/tabgropu.jl: make opaque move and
 	resize animator work with tabbed windows. Improved various functions
diff --git a/KEYBINDINGS b/KEYBINDINGS
index 904418b..48344eb 100644
--- a/KEYBINDINGS
+++ b/KEYBINDINGS
@@ -250,7 +250,6 @@ Button2-Off -> Add Window To Tab Group
 
 tabbar-keymap (Those bindings are active when the pointer is on the tabbar)
 
-Button1-Off -> Maybe Raise Tab
 Button1-Off2 -> Toggle Window Shaded
 Button1-Move -> Move Window Interactively
 Button2-Off -> Tab Add To Group
diff --git a/lisp/sawfish/wm/keymaps.jl b/lisp/sawfish/wm/keymaps.jl
index 431a404..c9bcdf1 100644
--- a/lisp/sawfish/wm/keymaps.jl
+++ b/lisp/sawfish/wm/keymaps.jl
@@ -126,7 +126,6 @@
     :type keymap)
 
   (defcustom tabbar-keymap (bind-keys (make-keymap)
-				      "Button1-Off" 'maybe-raise-tab
 				      "Button1-Off2" 'toggle-window-shaded
 				      "Button1-Move" 'move-window-interactively
 				      "Button2-Off" 'tab-add-to-group
diff --git a/lisp/sawfish/wm/tabs/tabgroup.jl b/lisp/sawfish/wm/tabs/tabgroup.jl
index 4ee55d4..23a1fab 100644
--- a/lisp/sawfish/wm/tabs/tabgroup.jl
+++ b/lisp/sawfish/wm/tabs/tabgroup.jl
@@ -30,9 +30,8 @@
             tab-rank
             tab-group-window-list
             tab-group-window-index
-            tab-group-window
-            maybe-raise-tab)
-    
+            tab-group-window)
+
     (open rep
           rep.system
           rep.data.records
@@ -52,19 +51,6 @@
   
   (define-structure-alias tabgroup sawfish.wm.tabs.tabgroup)
   
-    (defcustom tab-raise-on-hover nil
-    "Raise tabs while hovering them."
-    :group focus
-    :type boolean)
-
-    (define (maybe-raise-tab w)
-      "Raise a window, when it's a tab and automatic raising of is disabled"
-      (when (and (not tab-raise-on-hover)
-                 (window-tabbed-p w))
-        (tab-refresh-group w 'raise)))
-    
-    (define-command 'maybe-raise-tab maybe-raise-tab #:spec "%W")
-
   (define current-win nil)
   (define all-wins nil)
   (define oldgroup nil)
@@ -417,7 +403,7 @@ sticky, unsticky, fixed-position."
                          (tab-refresh-group win 'depth)
                          (tab-refresh-group win 'frame))))))
     
-    (add-hook 'focus-in-hook (lambda (win) (if tab-raise-on-hover (tab-group-raise win))))
+    (add-hook 'focus-in-hook (lambda (win) (tab-group-raise win)))
     (when (eq move-outline-mode 'opaque)
       (add-hook 'before-move-hook (lambda (win) (if (window-tabbed-p win) (before-move-resize win)))))
     (add-hook 'after-move-hook  (lambda (win) (after-move-resize win)))