[sawfish/tabs-ng] improved raise-tabs-on-hover-setter

[Christopher Bratusek <chrisb src gnome org>]

commit 7f296a49c3e58de01905328b1c10b530fcc61a50
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Thu Nov 4 21:19:00 2010 +0100

    improved raise-tabs-on-hover-setter

 lisp/sawfish/wm/focus.jl |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/lisp/sawfish/wm/focus.jl b/lisp/sawfish/wm/focus.jl
index fac4776..b0a870c 100644
--- a/lisp/sawfish/wm/focus.jl
+++ b/lisp/sawfish/wm/focus.jl
@@ -221,9 +221,9 @@ EVENT-NAME)', where EVENT-NAME may be one of the following symbols:
     (raise-window w))
 
   (define (raise-tabs-on-hover-setter)
-    (if (eq tab-raise-on-hover 't)
+    (if tab-raise-on-hover
         (add-hook 'enter-frame-part-hook raise-tabs-on-hover-action)
-      (when (add-hook 'enter-frame-part-hook raise-tabs-on-hover-action)
+      (when (in-hook-p 'enter-frame-part-hook raise-tabs-on-hover-action)
         (remove-hook 'enter-frame-part-hook raise-tabs-on-hover-action))))
 
   (define (focus-click)