[sawfish] changing raise-tabs-on-hover takes effect immediately now

[Christopher Bratusek <chrisb src gnome org>]

commit 7c1c07896a823fcfadc34d993be8078497bd3b54
Author: chrisb <zanghar freenet de>
Date:   Sat Jul 4 17:02:19 2009 +0200

    changing raise-tabs-on-hover takes effect immediately now

 ChangeLog                   |    4 ++++
 lisp/sawfish/wm/tabs/tab.jl |   13 +++++++++----
 man/news.texi               |    6 ++++++
 3 files changed, 19 insertions(+), 4 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index bab3c85..a808bc8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-07-04  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/tabs/tab.jl: make changed value of
+	raise-tabs-on-hover take effect immediately
+
 2009-07-03  Christopher Bratusek <zanghar freenet de>
 	* configure.in: post-release version bump to 1.6.0 [branched 1.5.0],
 	bump rep-gtk requirement to 0.90.0, therefore bumped gtk+ requirement
diff --git a/lisp/sawfish/wm/tabs/tab.jl b/lisp/sawfish/wm/tabs/tab.jl
index 1687216..a6ba007 100644
--- a/lisp/sawfish/wm/tabs/tab.jl
+++ b/lisp/sawfish/wm/tabs/tab.jl
@@ -67,7 +67,8 @@
   (defcustom tab-raise-on-hover nil 
     "Raise Tabs on Hover"
     :group tabs
-    :type boolean)
+    :type boolean
+    :after-set (lambda () (raise-tabs-on-hover-setter)))
 
   (define (get-tab-pos win)
     (let* ((group (tab-find-window win))
@@ -137,9 +138,13 @@
 
   (define-command 'tab-add-to-group mygroup #:spec "%W")
 
-  (if (eq tab-raise-on-hover 't)
-    (add-hook 'enter-frame-part-hook
-      (lambda (win) (raise-window win)))))
+  (define (raise-tabs-on-hover-action win)
+    (raise-window win))
+
+  (define (raise-tabs-on-hover-setter)
+    (if (eq tab-raise-on-hover 't)
+      (add-hook 'enter-frame-part-hook raise-tabs-on-hover-action)
+      (remove-hook 'enter-frame-part-hook raise-tabs-on-hover-action))))
 
   ;(require 'x-cycle)
   ;(define-cycle-command-pair
diff --git a/man/news.texi b/man/news.texi
index 3bcc802..438f266 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -22,6 +22,12 @@ they occurred between. For more detailed information see the
 @itemize @minus
 
 @item 5 new move-cursor command 4 for moving diagonally (move-cursor -northwest, -northeast, -southwest, -southeast), and move-cursor-center [Christopher Bratusek]
+
+ end itemize
+ item Other Changes:
+ itemize @minus
+
+ item Changing raise-tabs-on-hover takes effect immediately now [Christopher Bratusek]
 @end itemize
 @end itemize